How To Create a macro for Cell References into Header for a workbook

Hi,

I've the following macro:

Sub HeaderData()
With ActiveSheet.PageSetup
.CenterHeader = Range("P1").Value & vbCr & Range("P2").Value & " " & Range("P3").Value
End With
End Sub

Using this I can insert different cell references in header, but it needs to run everytime by opening every sheet, which is teadius.

I'm looking for similar macro, which will run for a whole workbook while opening the file and should have a formatting option.

Thanks,

Vivek


Moderator's Note: Welcome to the forum.Thank you for joining. Btw, when posting codes they should be enclosed with code tags. Select the code then hit the "#" sign. I'll do it for you now. Thanks.