From: Gord Dibben on
Sub titles()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.WorkSheets
If ws.Type = xlWorksheet Then
ws.PageSetup.PrintTitleRows = "$1:$5"
End If
Next
End Sub


Gord Dibben MS Excel MVP

On Tue, 23 Mar 2010 18:51:49 -0700 (PDT), Subodh <getsubodh(a)gmail.com>
wrote:

>I want to make code to make all the sheets have same ROWS TO REPEAT AT
>TOP on all the sheets of a workbook. ie. all the sheets in a work book
>should have row1 to row5 of sheet1 to repeated at the top.
>But, they cannot be made?
>The Sheets to repeat on top is only for sheet
>I want to make the sheet code for the workbook.

From: Gord Dibben on
Ignore this.

Misread the question.


Gord

On Thu, 25 Mar 2010 09:31:41 -0700, Gord Dibben <gorddibbATshawDOTca> wrote:

>Sub titles()
>Dim ws As Worksheet
>For Each ws In ActiveWorkbook.WorkSheets
> If ws.Type = xlWorksheet Then
> ws.PageSetup.PrintTitleRows = "$1:$5"
> End If
> Next
>End Sub
>
>
>Gord Dibben MS Excel MVP
>
>On Tue, 23 Mar 2010 18:51:49 -0700 (PDT), Subodh <getsubodh(a)gmail.com>
>wrote:
>
>>I want to make code to make all the sheets have same ROWS TO REPEAT AT
>>TOP on all the sheets of a workbook. ie. all the sheets in a work book
>>should have row1 to row5 of sheet1 to repeated at the top.
>>But, they cannot be made?
>>The Sheets to repeat on top is only for sheet
>>I want to make the sheet code for the workbook.

 | 
Pages: 1
Prev: How to reference shdocvw?
Next: Auto_Open Macro