![]() |
![]() |
|
|||||||
| Excel Questions All Excel/VBA questions - formulas, macros, pivot tables, general help, etc. Please post to this forum in English only. |
![]() |
|
|
Thread Tools | Display Modes |
|
|
#1 |
|
New Member
Join Date: Apr 2002
Location: Dave Cunningham
Posts: 1
|
In a workbook with multiple worksheets, I want to select all my worksheets and in the page setup, sheet tab, define the rows I want to print at the top of each page. Those options are grayed out unless I select each worksheet individually. Is there a fix for this problem?
Thank you. Dave Cunningham |
|
|
|
|
|
#2 |
|
MrExcel MVP
Join Date: Feb 2002
Location: Denver, Colorado USA
Posts: 4,014
|
Hi Dave,
Here is a workaround: simply use the following macro to set the number of title rows for all the selected sheets at once. Sub MultiTitleRows() Dim TitleRows As Range Dim WS As Worksheet Set TitleRows = Application.InputBox( _ "Enter title rows to be used for each selected worksheet", _ "Multi-sheet Page Setup", Type:=8) For Each WS In ActiveWindow.SelectedSheets WS.PageSetup.PrintTitleRows = TitleRows.Address Next WS End Sub
__________________
Keep Excelling. Damon VBAexpert Excel Consulting (My other life: http://damonostrander.com ) |
|
|
|
![]() |
| Bookmarks |
| Thread Tools | |
| Display Modes | |
|
|