Sub myfoot()
'Dim fullpath As String
'Dim sLeft As String
'Dim sRight As String

fullpath = ActiveWorkbook.FullName
Const sPAGE As String = "&P"
Const sPAGES As String = "&N"
Const sDATE As String = "&D"
Const sTIME As String = "&T"

sLeft = "Page " & sPAGE & " of " & sPAGES
sRight = sDATE & " " & sTIME

ActiveSheet.PageSetup.CenterFooter = fullpath
ActiveSheet.PageSetup.LeftFooter = sLeft
ActiveSheet.PageSetup.RightFooter = sRight
End Sub