Dante Amor respondió:
Te anexo la macro Sub Borrar_Ciertas_Celdas() 'Por.Dante Amor For Each h In Sheets If UCase(Left(h.Name, 2)) = "PU" Then h.Range("A2, B5, D7:E10").ClearContents End If Next MsgBox "Celdas Borradas" End Sub En esta parte de la macro, puedes poner una...