Need help. code to run in different sheets.

[pedie]

Hi!

Below is my current code.
If I want the code to run in different sheet say, in sheet1, sheet2, sheet3 one after another
how do I code it.
Thanks for helping.

Pedie!

Sub formatcells()
Cells.Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    Range("A1").Select
End Sub

 

[dave3009]

Try

Sub formatcells()
Dim i As Integer
For i = 1 To 3
With Sheets(i)
    With .Cells
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
End With
Next i
End Sub

 

[pedie]

Dave!

This is great but what if I want to run this code in sheet2 and 3 and not in sheet1 when what do i do?