Attaching a excel file to outlook email

Hi there, wondered if anyone can help me

I am trying to attach a excel file into an email (via Outlook)
Can you someone help? vba goes through the code creating the email and contents but cannot seem to attach the file. I get a runtime error, cannot find this file, verify the path and file name are correct - I am not sure what I doing wrong.

Many thanks,
Omer

Dim et As String
et = Application.InputBox("Please enter month end date to save as (DO NOT USE '\'): ""dd-mm-yy""")

Dim Newfile As String

Newfile = "AUM as of " & et & ".xls"

ChDir "Y:\FIMGroup\AUM"
ThisWorkbook.SaveAs Filename:=Newfile

Dim emailobj As Object
Dim email As Object
Dim varrecip As Variant
Dim varattach As Variant

Set emailobj = CreateObject("outlook.application")
Set objmail = emailobj.createitem(olmailitem)

objmail.display
objmail.Subject = "AUM Figures"
objmail.Recipients.Add "bbc1@com "
objmail.cc = "bbc@com;

objmail.body = "Dear All" & Chr(10) & Chr(10) & "Please find attached latest AUM data" & Chr(10) & Chr(10) & Chr(10) & Chr(10) & Chr(10) & Chr(10) & "Best regards" & Chr(10) & Chr(10) & "Omer"
objmail.attachments.Add "Y:\FIMGroup\AUM" & Newfile
End Sub