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
 

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

Similar Threads

Macro to Select text from a point given to a specific word 2
cursor goto a5 in Sheet1 but 1
Word Macro for multiple searches, incl. in footnotes 2
Pasting a cell into bookmarked table from excel vba 1
Macro Amendment. 4
Saving a range for later reference 0
Print Macro code help 1
macro to select a range from a set cell to a specified cell 6

Top