DeBug error

I have a Macro created but I am having issues with a string and cannot figure out what is the issue. My hope is that this string will export the 2 files listed( EE QA Form and TP QA Form) into a single PDF with the reps name listed in the title ( Range D9)...and if it can also include the date and time of the call being used which is in cell G13 and H13. Each time it is used it should create a new PDF file every time it is ran.

What am I missing??

Dim ref As String
 Dim filename1 As String

Path = "T:\Consolidated_Call_Center_Reporting\Quality Reports\QA Forms\PDF\_"
 Sheets(Array("EE QA Form", "TP QA Form")).Select
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:="T:\Consolidated_Call_Center_Reporting\Quality Reports\QA Forms\PDF\_ " & Range("D9").Text _
      & ".pdf", openafterpublish:=False, ignoreprintareas:=False
     
            
    
     MsgBox "All PDF's have been successfully exported."

~Thank you for any help!