Delete shapes when not Picture 1

[satkin2]

Hi,
I've got a spreadsheet with a macro that loops through the worksheets pasting a row 4 times. The row has an image in it.

When I run the first time on the template it puts new images in. If I run it again it pastes another image in there on top of the previous one. I'd like to be able to delete my shapes/pictures prior to the paste. The only image I want to keep is Picture 1 (the one I copy).

Is there a way to delete all images but one, or delete images if name isn't 'Picture 1'?

Many thanks

 

[satkin2]

After some trial and error I think i've sorted it...

Dim wbBook As Workbook
  Dim wbSheet As Worksheet
  
  Dim shp As Shape
  
  Set wbBook = ActiveWorkbook
  
  For Each wsSheet In wbBook.Worksheets
    wsSheet.Activate
    
    For Each shp In wsSheet.Shapes
      If wsSheet.Name = "Format" Then
        If shp.Name <> "Picture 1" Then
          shp.Delete
        End If
      ElseIf wsSheet.Name <> "Format" Then
        shp.Delete
      End If
    Next
  Next wsSheet