user and date saved, in footer

[cwal]

Hello, I have successfully added a footer to a work book, by opening the visual basic (Alt F11) and opened 'This Workbook' and pasted in this code...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = "Last saved by: " & Application.UserName & " " & Format(Date, "ddd dd mmm yyyy")
End Sub

The issue I have is that it's not appearing on every tab within the workbook?? I also tried opening every tab and pasting the same code in, though this did not work.

Can you pls let me know where I'm going wrong??

 

[shg]

Try this:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim wks         As Worksheet
 
    For Each wks In Me.Worksheets
        wks.PageSetup.LeftFooter = "Last saved by: " & _
                                   Application.UserName & " " & _
                                   Format(Date, "ddd dd mmm yyyy")
    Next wks
End Sub

 

[cwal]

tHAT SEEMS TO HAVE DONE IT...THANKS FOR YOUR HELP!!

 

[shg]

You're welcome, glad it worked for you.