Formatting macro to loop through all worksheets

[danelskibr]

Hello,

My goal is to run two sets of code that will format all of the sheets in my workbook in one of two ways. All the sheets are either formatted in style "A" or in style "B". One way to identify which type of style I am working with is to run the following:

 If IsEmpty(Range("K3").Value) = True Then

If the result is true, then the sheet is Style A. If it is not true, then it is Style B.

Does anyone know of an effective way to accomplish this?


I am thinking it would look something like this:

If Sheet A, run formatting code for Sheet A style.

If not Sheet A, Run formatting code for Sheet B style.

Move to next sheet and repeat for the entire workbook

THANKS!

 

[bhos123]

Sub Macro1()
dim ws as Worksheet
for each ws in Activeworkbook.Worksheets
ws.Select
If IsEmpty(Range("K3").Value) = True Then
.....
Else:
......
End if
Next ws
End Sub

 

[danelskibr]

That worked perfectly. Thank you!

 

[bhos123]

you are welcome!