Try a macro like this:

Sub ClearAll()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
Next
End Sub

---
To use, press ALT+F11, go to Insert Module, paste the code in the window,
and press ALT+Q. Now go to Tools Macro Macros and run it.

HTH
Jason
Atlanta, GA


"MS" wrote:

I'm trying to clear all the historical information listed under the custom
header and footer buttons. Is there a fast easy way of doing this?