Word sidehoved programmering

Jeg få en fejl i min kode som ser således ud:

If optUdenlogo = True Then
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
        Selection.HeaderFooter.Shapes("Picture 1").Select
        Selection.ShapeRange.Delete
        ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    End If


I sidehoved har jeg i min skabelon et logo, som skal kunne klikkes til og fra, men jeg får en fejlen:

kørselsfejl 9

Emnet med det angivne navn blev ikke fundet


Nogen som kan fotælle mig hvor jeg sætter navnet for sidehovedet?