Uma possibilidade

Sub RemoverImg()
Dim ws As Worksheet
Dim Planilha1 As Worksheet
Dim img As Shape
With ThisWorkbook
    For Each ws In .Worksheets
        If ws.Name <> "Planilha1" Then
            With ws
              For Each img In .Shapes
                If Not Application.Intersect(img.TopLeftCell, .Range("A8:q1000")) Is Nothing Then
                img.Delete
              End If
            Next
            End With
        End If
    Next
End With
End Sub

Reinaldo,
Muito Obrigado funcionou perfeitamente.