![]() |
|
|||||||
|
|
Thread Tools | Display Modes |
|
#2
|
|||
|
|||
|
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
|
| Tags |
| find and replace, header and footer |
|
|
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 |