I need to do a find-and-replace on pagesetup leftheader. Caveat is that I need to know the contents of the LeftHeader in order to replace it using Substitute. For example, the LeftHeader could contain: 

Sheet 1 - Updated - 1/12/19 
Printed on 6/3/19 

I would do a find-and-replace on 1/12/19 and 6/3/19 using below example code: 

```

Sub FnR_HF()    
    Dim sWhat As String, sReplacment As String
    Const csTITLE As String = "Find and Replace"

    sWhat = InputBox("Replace what", csTITLE)
    If Len(sWhat) = 0 Then Exit Sub
    sReplacment = InputBox("With what", csTITLE)

    With ActiveSheet.PageSetup
        ' Substitute Header/Footer values
        .LeftHeader = Application.WorksheetFunction.Substitute( _
                      .LeftHeader, sWhat, sReplacment)
    End With
End Sub

```

The above doesn't allow me to retrieve the contents of the LeftHeader. Can anyone help?