Inserting the Sheet Name into the Footer of Every Worksheet in a Workbook

[baylorcatholic]

As my post title states, I am trying to add the sheet name to the center footer for each worksheet in a workbook. The workbook has about 80 sheets and it is cumbersome to do this manually. I am using Excel 2010.

I have tried to record a macro capturing what I do manually, but when I run the macro on another sheet, it does not add the sheet name to the center footer.

I have tried searching for a macro online and the ones I have found just crash excel.

Any help would be appreciated. I know I am probably missing something obvious in my macro code.

 

[John_w]

Post your code if you want help with it. Alternatively, try this:

Sub Create_Sheet_Footers()

    Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.PageSetup.CenterFooter = "&A"
    Next
    
End Sub

 

[baylorcatholic]

Thank you.
Your code worked perfectly.
I think my manual macro was capturing too much information and your solution was complete, concise, and correct.
The other macros I found online were 10 times the amount of lines.

Appreciate it.

 

[John_w]

Thanks. Well done for at least starting with the macro recorder, Excel's free programmer. Many people don't even bother with this simple step.

I just recorded a macro, removed the redundant lines (they all set default values anyway) and then added the loop for each worksheet.

 

[James Snyder]

More rarely means better...