opa csfab... tranquilo??

Então, o que você quer dá para fazer. Só ficou meio evasiva sua dúvida.

Você quer limpar todos os dados digitados(inseridos) na planilha?
Você salvará os dados dessa planilha antes de limpá-los?
Quer simplesmente fechar a planilha e abri-la novamente?

Charlie-81, só quero limpar os dados, tem umas figuras que movo de lugar, quero que elas reapareçam no lugar inicial, não salvo nada.

Acho que seria mais rápido fechar e abrir a planilha novamente.

At.te

Alguém?

Bom dia!!

Tente assim..

Sub LimparCélulasPlanilhas_AleVBA()
Dim theWB As Workbook
Set theWB = Workbooks("Nome do seu Arquivo.xlsm")
With theWB
     .Sheets("Plan 1").Cells.Clear
     .Sheets("Plan 2").Cells.Clear
     .Sheets("Plan 3").Cells.Clear
End With
End Sub

Olá alexandrevba

Nesse código, limpa todas as células, no meu caso, quero uma coisa assim.

Arquivo em anexo é um jogo de corrida, onde quero um botão intitulado novo jogo, e nesse botão, quando clicado ele somente coloque as carinhas que foram movidas de lugar voltem para de origem.

At.te

Boa noite!!

Tente adaptar...

Sub LimparCelulas_AleVBA()
Dim Rng1 As Range
Dim Rng2 As Range
Set Rng1 = Sheets("Plan1").Range("A1:G10")
Set Rng2 = Sheets("Plan2").Range("A1:G10")

Rng1.ClearContents
Rng2.ClearContents
End Sub

Att