Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 - |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Select a list in 1 cell by selecting an item from another list in | Excel Discussion (Misc queries) | |||
select a single cell in excel 07, currently selecting a goup | Excel Discussion (Misc queries) | |||
select list by selecting a cell | Excel Worksheet Functions | |||
select cell rather selecting entire row | Excel Programming | |||
I have 36 legend entries but only need the ones actualy graphed | Charts and Charting in Excel |