Public Sub SetFormHeader(F As Form, bSwitchOn As Boolean)

    Dim S As Section
    On Error Resume Next
    DoCmd.SelectObject acForm, F.Name, False
    Set S = F.Section(acHeader)
    If bSwitchOn Then
        'if error, add
        If Err > 0 Then
            RunCommand acCmdFormHdrFtr
        End If
    Else
        'if no error, remove
        If Err = 0 Then
            RunCommand acCmdFormHdrFtr
        End If
    End If
End Sub