How to run macro for multiple worksheets

[dax007]

Hello,
I have almost 25 different worksheets in one excel file. Now in order to format it I have created a macro for each worksheet. If I go to each worksheet and run the macro for that worksheet it works fine.
Now I'm trying to automate this entire process, run all these macros for the respective worksheet. Can someone please guide or provide me a script that will help me to achieve this task

Any help will be appreciated.

Thank you.

[Kenneth Hobs]

Welcome to the forum!

I would write the FormatSheet to take an input parameter such as sheet name or sheet object.

If it just acts on the ActiveSheet and say skip sheet named Main, I guess you could do:


Sub Main() Dim wc As Worksheet, ws As Worksheet
Set wc = ActiveSheet
For Each ws In Worksheets
If ws.Name <> "Main" Then
ws.Activate
FormatSheet
End If
Next ws
wc.Activate
End Sub


Sub FormatSheet()
[A1].NumberFormat = "mm/dd/yyyy"
End Sub

[nikki333]

I would avoid activating each of the sheets like so for example:



Sub Main()
dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Range("A1").NumberFormat = "mm/dd/yyyy"
next ws
End Sub


Or if you want the foratting in a separate sub like so:



Sub Main()
dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
FormatSheets ws
Next ws
End Sub

Sub FormatSheets(ws as Worksheet)
ws.Range("A1").NumberFormat = "mm/dd/yyyy"
End Sub

[Paul_Hossler]

Hello,
I have almost 25 different worksheets in one excel file. Now in order to format it I have created a macro for each worksheet. If I go to each worksheet and run the macro for that worksheet it works fine.
Now I'm trying to automate this entire process, run all these macros for the respective worksheet. Can someone please guide or provide me a script that will help me to achieve this task

Any help will be appreciated.

Thank you.


Is it the same basic macro for each of the 25 sheets with only the sheet name different, or are there different macros for different sheets?