Create a command button to format a group of worksheets

Hi veronica,

Something like this should get you on your way. Attach it to a Command Button placed on Sheet 1

Sub Format_Each_Sheet()
Dim ws As Worksheet
For Each ws In Worksheets
'Rename Sheet1 for your first sheet
    If ws.Name <> ("Sheet1") Then
        
        'code for your formatting goes here
    
    End If
Next ws
End Sub

Originally Posted by vjboaz

That worked absolutely perfectly... I just had to use wks.Name to activate the worksheet.

Thanks so much!!!!

Veronica

You don't need to Activate the sheets to format them.