Sub Workbook Open()

[mllex]

I have the following code in Sub Workbook Open()

Worksheets("Name of Sheet&quot.Activate
ActiveSheet.PageSetup.RightFooter = Application.UserName

In the event the user changes the name of the worksheet, how can I be sure the username gets into the footnote?

I need generic code, not specific to a particular workbook or worksheet.

Can anyone offer an alternative?

 

[dsi]

If you want to do this to the active worksheet, you do not need the Worksheets("Name of Sheet&quot.Activate line.

 

[dsi]

If you want to do this to each sheet in the workbook:

    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
        ws.PageSetup.RightFooter = Application.UserName
    Next ws
[code]

 

[mllex]

It worked! Thank you!