VBA Help

[charlie_580]

I'm trying to get a footer to update when a workbook is opened. there are 4 sheets in the workbook but the only the sheet which was last saved on updates when it's opened.

Ideally it would update each sheet on print but my code isn't working.

I have a very limited knowledge of VBA.

Here is what I have

Private Sub Workbook_Open()
' Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup

.LeftFooter = "Printed by " & Application.UserName & " on " & Date
End With

End Sub

Any help much appreciated.

 

[doofusboy]

You could try something like this:

Private Sub Workbook_Open()
Dim ws As Worksheet
    For Each ws In Worksheets
        ws.PageSetup.LeftFooter = "Printed by " & Application.UserName & " on " & Date
    Next ws
End Sub

 

[charlie_580]

Perfect. Thanks.

Would there be a way of keeping the original print date on each sheet? Not really important but would be nice to know how to do it.

Thanks again.