Thanks Bob, that workes perfectly. Looks like I was in a rush and
getting sloppy!

On Apr 13, 11:44*am, "Bob Phillips"
wrote:
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- Hide quoted text -

- Show quoted text -