Need help...
I'm trying to change the shape fill from a picture which I placed in a different worksheet.

I tried the following code but received error msg:
Complie error:
Argument not optional.


Sub Rectangle34_Click()

Dim Shp1 As Shape
Set Shp1 = Worksheets("sheet1").Shapes("Rectangle 34")
Shp1.Fill.UserPicture = Worksheets("sheet2").image1.Picture

End Sub