Run-time error 424: Object Required

[hlg0035]

Getting a run time object required error with this code (bolded below) and cannot figure out why! any help would be appreciated

My variables for the saved word document code have previously been declared.
Dim UserId As String
UserId = Sheets("QuantienEvaluations").Range("M5").Value2

Set WrdApp = CreateObject("Word.Application")
WrdApp.Visible = True

If Sheets("QuantienEvaluations").Range("A2") = "QuantienAerisOnly" Then Set WrdDoc = WrdApp.Documents.Open("C:\Users\" & UserId & "\Desktop\Quantien With Aries Only.docx")

If Sheets("QuantienEvaluations").Range("A2") = "QuantienAerisCertus" Then Set WrdDoc = WrdApp.Documents.Open("C:\Users\" & UserId & "\Desktop\Quantien With Aeris and Certus.docx")

WrdDoc.SaveAs2 Filename:= _
"C:\Users\" & UserId & "\Desktop\ " & CustomerName & " " & City & " " & State & " " & CustomerNumber & " " & "Quantien Evaluation Agreement" & " " & Month(Now()) & "." & Day(Now()) & "." & Year(Now()) & ".docx" _
, FileFormat:=13, LockComments:=False, _
Password:="", AddToRecentFiles:=True, WritePassword:="", _
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, CompatibilityMode:=14

 

[Norie]

Has a Word document definitely been opened?

 

[hlg0035]

Word has opened but not the specific document.

Has a Word document definitely been opened?

 

[Norie]

If no Word document is being opened then WrdDoc is Nothing, hence the error.

 

[hlg0035]

How do I change that? Sorry for the ignorance, very new to VBA and still unaware of the common syntax

 

[Norie]

You need to check why this code isn't opening a Word document.

If Sheets("QuantienEvaluations").Range("A2") = "QuantienAerisOnly" Then Set WrdDoc = WrdApp.Documents.Open("C:\Users\" & UserId & "\Desktop\Quantien With Aries Only.docx")

If Sheets("QuantienEvaluations").Range("A2") = "QuantienAerisCertus" Then Set WrdDoc = WrdApp.Documents.Open("C:\Users\" & UserId & "\Desktop\Quantien With Aeris and Certus.docx")

 

[hlg0035]

I have tried, I put it in a test with just that code and it worked perfectly. But when I incorproate into the program I'm trying to create I get an error.