Cycle thru worksheets in a workbook

J

June

How do I bring each sheet in a workbook to Active? I have
a formatting macro I need to run on each sheet.

Thanks in advance!
June
 
K

Ken Macksey

Hi

you couls try something like



Dim ws As Worksheet

Application.ScreenUpdating = False

For Each ws In Worksheets
ws.Activate

' do your formatting here

Next ws

Sheets(1).Activate

Application.ScreenUpdating = True


HTH

Ken
 
Top