Option Explicit
Sub PageSetupEverySheetFaster()
Dim szLastSaveTime As String
szLastSaveTime = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
Dim szHyperLink As String
szHyperLink = ThisWorkbook.BuiltinDocumentProperties("HyperLink Base")
Dim lPageNum As Long
lPageNum = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With Worksheets(1).PageSetup
.LeftFooter = "Last Saved: " & _
Format(szLastSaveTime, "mm-dd-yy hh:mm:ss")
.RightFooter = szHyperLink
.RightHeader = "&D"
.LeftHeader = "Page &P of " & lPageNum
.Orientation = xlLandscape
.CenterHeader = "MAIN HEADER"
End With
Worksheets.Select
SendKeys "%f", True
SendKeys "u"
SendKeys "{ENTER}", True
Worksheets(1).Select
End Sub
|