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