ranjp

Bom dia!

Não sei o que você quer dizer com "estilos personalizados". Todavia, se você quiser apagar TUDO que tem na sua planilha, de uma vez só, use o código abaixo:

Sub ApagarTudo()
    Sheets("Plan1").UsedRange.Select
    Selection.ClearContents
    Range("A1").Select
End Sub

ranjp

Bom dia!

Não sei o que você quer dizer com "estilos personalizados". Todavia, se você quiser apagar TUDO que tem na sua planilha, de uma vez só, use o código abaixo:

Sub ApagarTudo()
    Sheets("Plan1").UsedRange.Select
    Selection.ClearContents
    Range("A1").Select
End Sub

wagner,

Obrigado pela atencao.
Como nao sei explicar exatamente o meu problema, irei anexar uma copia do meu arquivo onde contem o problema e imagens tentando explicar o mesmo.

Nesse arquivo eu apaguei todas as planilhas e macros e adicionei um sheet em branco e mesmo assim podera ser notado que o problema em questao nao se resolveu.
Fico no aguardo e mais uma vez agradeco a ajuda.

Entendi...

Infelizmente, não sei do que se trata.