Jeff,

With Worksheets("Pol Value")
.Range("A1:J50").CopyPicture xlScreen, xlBitmap
.Paste Destination:=.Range("K1")
.Shapes(.Shapes.Count).Name = "NewPictureName"
End With

HTH,
Bernie
MS Excel MVP


"Jeff" wrote in message
...
Hi,

I have a macro that copy's a range in the workbook to a picture.

1.) Copy's a range and saves as a picture

What I want to do - rename the picture object. I think it is named "Picture
1" or "Picture X" by default, but this is no good since I want to refer to it
later in the code.

Code:
Sub Create_picture()
'Create the picture
Worksheets("Pol Value").Range("A1:J50").CopyPicture xlScreen, xlBitmap

End sub

Thanks for your help