Macro Make Header Title Page With Multiple Sheets

[muhammad susanto]

hi all...
i need macro to make header page numbers for workbook with multiple sheets
like this, i have dozens sheet eg. sheet1,sheet2,sheet3..
i want header title into each sheet continues like this
sheeta ---- Analisis 1 (as Header Title)
sheetbb ----Analisis 2 (as Header Title)
sheetx ----Analisis 3 (as Header Title)
etc..

how to make it with macro code?
thank in advance..

.sst

 

[mse330]

Hi muhammad,

Assuming your header is in cell A1, try the below code ..

Sub test()

Dim ws As Worksheet

For Each ws In Sheets
   ws.Range("A1") = "Analisis " & ws.Index
Next

End Sub

 

[muhammad susanto]

hi mse330....
working well, thank you!!!

 

[mse330]

Glad to help & thanks for your feedback