copy picture based on a variable 1

[kasparov]

I want to copy a certain picture (photo) from one sheet to another depending on the value of a variable. So if the variable = 1 then I copy Picture 1 if it's 2 I copy Picture 2 etc.

I have this to copy a hardcoded picture:

Sub CopyOnePicture()
Dim wsSource As Worksheet
Dim wsDest As Worksheet

    Set wsSource = Worksheets("Who")
    Set wsDest = Worksheets("table")

    Set pic = wsSource.Pictures("Picture 2")

    pic.Copy
    wsDest.Paste

    With wsDest.Pictures(wsDest.Pictures.Count)
        .Left = pic.Left
        .Top = pic.Top
    End With

End Sub

Can someone tell me what the syntax is to change "Picture 2" to something like "Picture x"

Thanks, Chris

 

[TonyJollans]

Set pic = wsSource.Pictures("Picture " & x)

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

I'm working (slowly) on my own website

 

[kasparov]

Thanks you Tony - easy when you know how. But I didn't

 

[TonyJollans]

easy when you know how.

Always the way

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

I'm working (slowly) on my own website