Guru do Excel e Power BI

Oi, pessoal! Tudo bem?
Preciso de um código que apague apenas os shapes referentes ao "Retângulo" de minha planilha, mantendo os outros shapes. O código que apaga todos os shapes, é tranquilo, eu consegui. Mas dá erro quando eu estipulo um grupo específico. Podem me ajudar?

Obrigada!

Experimente:

Código: Selecionar todos

Sub DeletaRetângulos()
 Dim shp As Shape
  For Each shp In ActiveSheet.Shapes
   If Left(shp.Name, 9) = "Rectangle" Then shp.Delete
  Next shp
End Sub

Guru do Excel e Power BI

Código para apagar apenas um grupo específico de shapes

Código para apagar apenas um grupo específico de shapes

Re: Código para apagar apenas um grupo específico de shapes