Ok, I have been working on this for a while. I got some sheets to work but
others don't. This is how I am doing it.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = "&8Last Saved : " & _
ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
Next wkSht
End Sub

But on some sheets, It dosen't work. Also is there a way of putting it into
a certin cell and not the footer?
Thanks,
Buddy