VBA Do Loop for Clear contents in all sheets but sheets 1

[GerryZucca]

Hello VBA friends
I'm learning VBA and at moment I'm learning Do Loop
I need a macro to clean all the sheets in workbook, but not sheets 1
As you can see from Attchment
Thank you for your help

[GerryZucca]

hello friends
im Close but Now i need to clean the data

Sub Pulisci() 
Foglio1.Activate 
            Do 
                    If ActiveSheet.Next Is Nothing Then Exit Do 
                    ActiveSheet.Next.Select 
            Loop 
End Sub  

[Norie]

You should be using criteria on the loop rather than Exit Do.

Please Login or Register  to view this content.

[GerryZucca]

thank you Noire
Solved