loop a sub routine

Here is what I am trying to do:
I have 30 duplicate worksheets that I enter data every 3 months. I have a macro that clears certain fields and copies data from one field to other and I run this macro after selecting each sheet one at a time. How can I create a macro that will run this macro from the 1st sheet through to the 30th sheet in one click. My macro is called Clear_data.
Any help would be greatly appreciated!

Do you clear the exact same data on each worksheet? If so, you can write a loop to cycle through each worksheet and clear the same data.

Yes I do. How would write this code?

Do you want to loop through EVERY single worksheet or only some of them (for example, the last 20 of 25 worksheets)?

on every worksheet.

Insert your code into the area where it says "Perform code here"

Please Login or Register  to view this content.

I tried it but it stayed on the first worksheet and kept repeating the macro.

Did you be sure to include the "Option Explicit" part?

Try adding this worksheet activate line:

Please Login or Register  to view this content.

ws.activate did the trick.

Thanks!!

One little problem, I have some hidden sheets that I don't want to involve so it is creating a problem. Is there a way to ignore these?

I've never tried this before, but I found this possible solution:

Please Login or Register  to view this content.

Its Ok, I figured it out. Here is what I used:
Option Explicit

Sub LoopThroughSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Activate

If ws.Visible = True Then

Application.Run _
"Start_New_Prove"
End If

On Error Resume Next
Next ws
End Sub