Este fórum está sendo desativado

[nathsbd]

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!

[osvaldomp]

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