Cycle thru worksheets in a workbook
 

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

Cycle thru worksheets in a workbook
 

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


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.718 / Virus Database: 474 - Release Date: 09/07/2004