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