You need t qualify it with your bound workbook ans worksheet variables

Public Sub CtrZX1Cell()
'centers the cell to keep printing on one sheet
Dim wb As Workbook
Dim ws As Worksheet

For Each wb In Application.Workbooks

For Each ws In wb.Worksheets
ws.Range("F3").HorizontalAlignment = xlCenter Next ws

Debug.Print wb.Name

Next wb

End Sub

--

HTH

Bob

"Robert H" wrote in message
...
I need to fix the same problem in alot of workbooks. Its just a mater
of centering the same cell in each workbook. All workbooks are layed
out the same and have one worksheet so I thought it would be pretty
simple.

however, I noticed that the only workbook being acted upon was the
selected workbook even though the print.debug listed each workbook.
for lack of nothing else comming to mnd I added the "For Each ws In
Worksheets" but that was not help.
Any help will be appreciated
Thanks


Public Sub CtrZX1Cell()
'centers the cell to keep printing on one sheet
Dim wb As Workbook
Dim ws As Worksheet

For Each wb In Application.Workbooks

For Each ws In Worksheets
Range("F3").Select
With Selection
.HorizontalAlignment = xlCenter

End With
Next ws

Debug.Print wb.Name

Next wb

End Sub