lo tengo asi pero no funciona para hojas ocultas
Código:
gracias Sub delete (Hoja As String) Sheets(Hoja).Select Cells.Select Selection.ClearContents end sub