Select not actualy selecting the cell
 

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

Select not actualy selecting the cell
 

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

Select not actualy selecting the cell
 

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 -