Adding a picture

[Jacob Hilderbrand]

What I would do is put the picture you want to copy on a hidden sheet so that it won't be deleted then run this macro.

Sub DelShapes()
Dim WS As Worksheet
Set WS = Sheets("Sheet1")
WS.Shapes.SelectAll
Selection.Delete
End Sub

Then change this line to reference the new sheet with the picture to copy.

WS.Shapes("Picture 4840").Copy