Loop through Excel workbook to center(Please Help) 1

[missprogrammer]

I'm having problems with my code, Im getting a compile error
next without for. What am i missing I trying to loop the code through the workbook on all the sheets

Please help,Thanks in advance


Private Sub CenterCells()
Dim c As Integer

For c = 1 To ActiveWorkbook.Sheets.Count
With ActiveWorkbook.Sheets(c)
Range("B1:AE48&quot.HorizontalAlignment = xlCenter
' Range("B1:AE48&quot.VerticalAlignment = xlBottom
' Range("B1:AE48&quot.Orientation = 0
' Range("B1:AE48&quot.AddIndent = False
' Range("B1:AE48&quot.ShrinkToFit = False
' Range("B1:AE48&quot.MergeCells = False



Next c
End With
End Sub

 

[DarkSun]

The End With needs to be before the Next c.

 

[Guest_imported]

its not looping through the entire workbook, that is it is center that last active worksheet, but not all of them

Private Sub CenterCells()
Dim c As Integer

For c = 1 To ActiveWorkbook.Sheets.Count
With ActiveWorkbook.Sheets(c)
Range("B1:AE48&quot.HorizontalAlignment = xlCenter

End With
Next c
' Next Counter
End Sub

 

[dsi]

Just responded to your latest post:

    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Sheets
        ws.Range("B1:AE48").HorizontalAlignment = xlCenter
    Next