Generating PDF now shows an error

[ipbr21054]

Morning,
I have a code which generates a pdf file from my sheet.
For unknown reason now when i run the code it generates an error and when i debug the text in red below is shown.
Can you advise please.

Private Sub Generate_Pdf_Click()
    Dim strFileName As String
    
    strFileName = "C:\Users\Ian\Desktop\REMOTES ETC\DR\DR SCREEN SHOT PDF\" & Range("G13").Value & ".pdf"
    If Dir(strFileName) <> vbNullString Then
        MsgBox "INVOICE " & Range("G13").Value & " WAS NOT SAVED AS IT ALLREADY EXISTS", vbCritical + vbOKOnly, "GENERATE PDF FILE MESSAGE"
        Exit Sub
    End If
    
    With ActiveSheet
        .PageSetup.PrintArea = "$G$3:$O$61"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
        pdf = MsgBox("INVOICE " & " WAS SAVED SUCCESSFULLY" & vbNewLine & vbNewLine & "DO YOU WISH TO NOW PRINT IT ?", vbExclamation + vbYesNo, "GENERATE PDF FILE MESSAGE")
        If pdf = vbYes Then
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
        Else
        ActiveWorkbook.Save
        End If
    End With

End Sub

 

[Dan_W]

What does the error message say?

 

[ipbr21054]

Just found the issue,
If a specific cell was empty then the message it thrown up.

Need to add a msgbox telling you why the issue failed