Nevermind. I found my modification below works as I need it to:
If ([A51] = True Or [A53] = True Or [A54] = True Or [A56] = True) And _
([A60] = True Or [A61] = True Or [A62] = True Or [A63] = True) Then
FileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"S:\Folder\" & Cells(2, 2).Value & " - " & Cells(6, 2).Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Range("A1:D28").Select
RDB_Mail_PDF_Outlook FileName, "email@emailaddress.com", "Records Request Automatic Notification", _
"You have a records request waiting for you on the shared drive." _
& vbNewLine & vbNewLine & "This is an automatic email notification. Please do not reply to this email.", True
End If
Bookmarks