Run and edit a Macro

S

santaviga

I have a macro that I need to input data into Footers on worksheets, I am
having a problem to begin with saying script out of range, any help, I also
need this this macro to run automatic when the document is opened, is this at
all possible, please have a look at my code and revise if needed. I have a
beforesave eveny operating in this workbook so before save is not an option
unless I can call this macro before save like I do with protect sheets.

Many Many thanks

Mark

Sub PageSetUp()
Dim SH1 As Object
Dim SH2 As Object
With Me
Set SH1 = .Sheets("Sheet3")
Set SH2 = .Sheets("Sheet8")
End With
SH1.PageSetUp.RightFooter = Format(Now, "dd-mmm-yy")
SH2.PageSetUp.RightFooter = "Relief Shifts " & Format(Now,
"dd-mmm-yy")
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top