Modificar macro que inserta imagen

Te invito a ver el siguiente:

Consejos para empezar a programar.

--------------------

Puedes utilizar la sentencia Case, te muestro un ejemplo:

Sub InsertaImagenMA(): On Error Resume Next
  Application.ScreenUpdating = False
  For Each hoja In Sheets
    Select Case hoja.Name
      'excluir hojas
      Case "Nueva plantilla", "Reporte", "Resumen"
        '
      'todas las demás hojas serán incluidas
      Case Else
        hoja.Select
        ActiveSheet.Shapes("CARACOLA").Delete
        ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\imagenes\" & [B2] & ".png").Select
        Selection.Name = "CARACOLA"
        With Selection.ShapeRange
          .LockAspectRatio = False
          .Left = Range("D1").Left + 1
          .Top = Range("D67").Top + 1
          .Width = 300
          .Height = 230
        End With
        ActiveCell.Select
    End Select
  Next
End Sub

Te recomiendo:

Curso de macro: Método Find

Sal u dos Dante Amor

Case "Nueva plantilla", "Reporte", "Resumen"

error de sintaxis

Veo que tienes esta instrucción al inicio del código:

On Error Resume Next

No es recomendable utilizar esa instrucción. Revisa el siguiente vídeo, ahí explico las consecuencias de utilizarla.

Revisa este capítulo en el vídeo:

11:23 Consejos de lo que NO debes hacer

Curso de macros. Consejos para empezar a programar. - YouTube

--------------

Prueba el siguiente código, puse la instrucción On error Resume Next, en el lugar adecuado, también puse la instrucción On Error Goto 0, significa que verificará nuevamente cualquier error en la ejecución.

Sub InsertaImagenMA()
  Dim hoja As Worksheet
  Application.ScreenUpdating = False
  For Each hoja In Sheets
    Select Case hoja.Name
      'excluir hojas
      Case "Nueva plantilla", "Reporte", "Resumen"
        '
      'todas las demás hojas serán incluidas
      Case Else
        hoja.Select
        '
        On Error Resume Next
        ActiveSheet.Shapes("CARACOLA").Delete
        On Error GoTo 0
        '
        ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\imagenes\" & [B2] & ".png").Select
        Selection.Name = "CARACOLA"
        With Selection.ShapeRange
          .LockAspectRatio = False
          .Left = Range("D1").Left + 1
          .Top = Range("D67").Top + 1
          .Width = 300
          .Height = 230
        End With
        ActiveCell.Select
    End Select
  Next
End Sub

-------

Recomendaciones:

Curso de macros. Declarar variables en vba excel. - YouTube

Sal u dos Dante Amor

Case "Nueva plantilla",

Error de sintaxis