Macro

S

Steved

Hello from Steved

Sub OpenHeaderDialog()
Application.SendKeys "{RIGHT}{RIGHT}{TAB}{TAB}{TAB}~"
Application.Dialogs(xlDialogPageSetup).Show
End Sub

How do I put A pause in here so I change the footer Date
then ask the macro to Sub Save_Close () please.
As at the moment it is 2 macros I would like it to be 1.

Sub Save_Close()
ActiveWindow.SmallScroll ToRight:=-20
Range("A5").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Range("A1").Select
End Sub

Thankyou
 
Top