I'm having issues editing an existing Macro to get it to autofill at start up. Right now, a box pops up at start up asking if the document is a specific "status" type. I would like the response to auto fill in the header or the footer of the document. What is this missing or needs to be changed in the macro?

Private Sub Actual_Click()
Status.Hide
ActiveDocument.CustomDocumentProperties("Status").Value = " "
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdNormalView
Else
ActiveWindow.View.Type = wdNormalView
End If
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If
Application.ScreenRefresh
Unload Status
Load ContactNumber
ContactNumber.Show
End Sub

Private Sub Drill_Click()
Status.Hide
ActiveDocument.CustomDocumentProperties("Status").Value = "This is a drill"
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdNormalView
Else
ActiveWindow.View.Type = wdNormalView
End If
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If
Application.ScreenRefresh
Unload Status