Joe
Try the code below:
Be sure to substitute the information for what you want.
HTH
Dennis
********************************************
Sub PageSetupAllSheets()
Dim EachSheet As Worksheet
For Each EachSheet In ActiveWorkbook.Worksheets
With EachSheet.PageSetup
' &F = File
' &A = Tab
' &D = Date
' &T = Time
' &P = Page
' &N = Pages
'
' NOTE: the "&8" that you see below is font size
'
' Chr(10) is a carrage return
'
'
.LeftFooter = "&8 &D &T"
.CenterFooter = "&8Your Name" ' & Chr(10) & "&D &T"
.RightFooter = "&8Page " & "&P of &N"
End With
Next EachSheet
MsgBox "Process Completed! Press OK to Continue"
End Sub
"Mick" wrote:
how do I scan a table into exel. My scaner is a HP 80 K series. Office
version is 2003
|