Attach file to email

I have created an action register and i want to email to client as either a .pdf or .xlsx. I can write separate macros for both no issue and it works   What i want to do is write a macro that give you a choice attach as either .pdf or .xlsx using wild card   msgbox comes up click yes for .xlsx or no for .pdf   the PDF or XLSX file will be created and saved to the same folder each time and once the file is attached the file will be deleted - Kill file name   I have written the code for the msgbox choice - No problem   Create the PDF no problem and saves to the correct folder   when i go to attach to the email, the variable has the correct file name when you hover over but will not attach   Code   Sub mainmacro()   Dim response As VbMsgBoxResult   response = MsgBox("Please choose an action:" & vbNewLine & _                  "Yes - Run Macro One" & vbNewLine & _                  "No - Run Macro Two" & vbNewLine & _                  "Cancel - Exit", _                  vbYesNoCancel + vbQuestion, _                  "Action Required")                   Select Case response     Case vbYes         Call macro_one     Case vbNo         Call macro_two     Case vbCancel         macro_three End Select End Sub   Private Sub macro_two() '************************************************************************************************** ' This macro creates the .PDF file of the workbook ' Hides rows 3 to 5 ' It creates an array of the required 3 sheets ' Unhides rows 3 to 5 ' Calls the email macro and attaches the file to the email '*************************************************************************************************** ' New file variables. Dim wsToPrint As Worksheet ' This will hold the worksheet that we export as a PDF. Dim newFilename As String ' This will hold the full path, name and extension of the file we create.   ' Create a name for the new file so it can be saved.   newFilename = Dir("C:\Test\Export\*") Set wsToPrint = Worksheets("Stores") wsToPrint.Select   wsToPrint.Cells(1, 1).Select   ' Save PDF of The Worksheet    wsToPrint.ExportAsFixedFormat _         Type:=xlTypePDF, _         Filename:=newFilename, _         Quality:=xlQualityStandard, _         IgnorePrintAreas:=True, _         OpenAfterPublish:=False   MsgBox "PDF created"   Call macro_three   End Sub   Private Sub macro_three() '************************************************************************************************** ' This macro creates the email ' attaches the .xlsx or the PDF ' It then kills the filename '***************************************************************************************************     ' Email Section     Dim outlookApp As Object     Dim emailItem As Object     Dim emailSubject As String     Dim emailBody As String       Dim newFilename As String     newFilename = Dir("C:\Test\Export\*")         ' Get a reference to the Outlook Application Object.     Set outlookApp = CreateObject("Outlook.Application")         ' Create the Email Object Item     Set emailItem = outlookApp.CreateItem(0)         ' Setup values for the email.     emailSubject = "Subject line for the email."     emailBody = "The message for the email." & vbNewLine & _                 "Here is a second line." & vbNewLine & vbNewLine & _                 "And another line: " & vbTab & " with a tab."                     ' Build the Email     With emailItem         .To = "email@example.com"         .CC = ""         .BCC = ""         .Subject = emailSubject         .Body = emailBody     End With         ' Add attachments     emailItem.Attachments.Add newFilename When you hover over the variable it shows the correct filename, but fails to attach it to the email.         ' Send the email.     emailItem.Display ' .Display or .Send                ' Delete the newly created file.       Kill newFilename   End Sub