Need assistance to find and replace text within headers/footers in excel

teddycatnc · #1 02-25-2016, 09:39 AM

Hoping for help! I need to replace instances of specific text which appears in the left headers and left footers of 100+ worksheets within a workbook.

I've been looking around for a macro script, but have been unsuccessful.

Assistance MUCH appreciated!!

jolivanes · #2 02-27-2016, 08:16 PM

Code:

Sub Check_Headers_And_Footers()
Dim i As Long
    For i = 1 To ActiveWorkbook.Sheets.Count
        With Sheets(i).PageSetup
            If .LeftHeader <> "Good Header" Then .LeftHeader = "Good Header"
            If .LeftFooter <> "Good Footer" Then .LeftFooter = "Good Footer"
        End With
    Next i
End Sub

xor · #3 02-28-2016, 01:20 AM

I would just press the first sheet tab, hold down Shift and press the last sheet tab, then go into Page Setup, adjust your footers as needed and press OK. Remember to ungroup your sheets again.

jolivanes · #4 03-07-2016, 12:04 AM

Quote:

Assistance MUCH appreciated!!

Was the assistance of any help?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to insert page break when copying Excel table into PP? How set headers/footers in PP like Word?	proja	PowerPoint	0	09-16-2015 12:36 PM
Macro for find/replace (including headers and footers) for multiple documents	jpb103	Word VBA	2	05-16-2014 04:59 AM
Multi-Doc Find/Replace, Including Headers/Footers & Textboxes	konopca	Word VBA	3	05-05-2014 03:18 PM
How do I have headers and footers appear as regular text for the whole document?	user908045	Word	0	03-13-2010 12:41 PM
Editable text in headers/footers	AlexSmalley	Word	0	08-10-2009 07:34 AM