VBA Error 424 Object Required

HELP.
Hello, Super Newbie here. I'm trying to Accept Track Changes in Multiple Word Documents about 600. I found codes to use and ran the macros but I don't know what I'm missing. Here's my module code:

Sub ShowAcceptOrRejectForm()
frmAcceptOrRejectRevisions.Show
End Sub

"frmAcceptOrRejectRvisions.Show is giving the error. How do I connect this Macros Code to tell it to go to form and perform action?

In my Userform I created a label and 3 commands:


Private Sub btnAccept_Click()
Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)

With dlgFile
dlgFile.AllowMultiSelect = True
If .Show = -1 Then
For nDocx = 1 To dlgFile.SelectedItems.Count
Documents.Open dlgFile.SelectedItems(nDocx)
Set objDocx = ActiveDocument
objDocx.AcceptAllRevisions
objDocx.Save
objDocx.Close
Next nDocx
Else
MsgBox ("You need to select documents first!")
Exit Sub
End If
End With
MsgBox ("You have accepted all revisions in selected documents.")
Set objDocx = Nothing
End Sub
Private Sub btnClose_Click()
Unload Me
End Sub
Private Sub btnReject_Click()
Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)

With dlgFile
dlgFile.AllowMultiSelect = True
If .Show = -1 Then
For nDocx = 1 To dlgFile.SelectedItems.Count
Documents.Open dlgFile.SelectedItems(nDocx)
Set objDocx = ActiveDocument

objDocx.RejectAllRevisions
objDocx.Save
objDocx.Close
Next nDocx
Else
MsgBox ("You need to select documents first!")
Exit Sub
End If
End With
MsgBox ("You have rejected all revisions in selected documents.")
Set objDocx = Nothing
End Sub

The goal is to have the window browser pop up so I can select the documents. Is there another way?

Thank You.