I get "Object variable or With block variable not set" error

[s001dxp]

I get the error described in the title when executing the code beneath. Any help would be appreciated.

Public Sub AutoNew()
 
    Dim PlayName
    PlayName = InputBox("Enter Name of Play", "Name of Play")
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.TypeText Text:=PlayName & vbTab & vbTab
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

Port