Custom Header in Excel

D

Danny Coyle

Does any one know how to set up dynamic Headers in Excel for multiple
worksheets? For example, the first worksheet header would be "Exhibit 1", the
second worksheet header would be "Exhibit 2" and so on. Please advise and
thank you very much.
 
D

Dave F

One possibility. This assumes Exhibit 1 is in cell A1 of Sheet 1

Enter 1 in cell B1 of sheet 1

Enter =CONCATENATE("Exhibit ",B1)

Enter =CONCATENATE("Exhibit ",Sheet1!B1+1) in A1 of Sheet 2

Etc.

Dave
 
G

Gord Dibben

Danny

Sub Exhibit_in_Header()
Dim ws As Worksheet
Dim i As Long
For i = 1 To Worksheets.Count
For Each ws In ActiveWorkbook.Worksheets
Sheets(i).PageSetup.LeftHeader = "Exhibit " & i
Next ws
Next i
End Sub


Gord Dibben MS Excel MVP
 
Top