Sub EditCenterHeader()
    Prompt$ = "Enter new center header"
    Prompt$ = Prompt$ + " or click Cancel to remove header"
    With ActiveSheet.PageSetup
        CurrentCenterHeader$ = .CenterHeader
        .CenterHeader = InputBox(Prompt$, "Center Header", _
        CurrentCenterHeader$)
    End With
End Sub