VBA Email Inactive Sheet

[jamesmev]

I am attempting to use VBA to mail an inactive sheet from my workbook. I am getting a 400 error with the below code.



Sub EmailWithOutlook()
Dim oApp As Object
Dim oMail As Object
Dim WB As Workbook
Dim FileName As String
Dim wSht As Worksheet
Dim shtName As String


Application.ScreenUpdating = False


' Make a copy of the active worksheet
' and save it to a temporary file
Copy Sheets("Email").Select
Set WB = CopySheets


FileName = WB.Worksheets(Email).Name
On Error Resume Next
Kill "C:" & FileName
On Error GoTo 0
WB.SaveAs FileName:="C:" & FileName


'Create and show the Outlook mail item
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
With oMail
'Uncomment the line below to hard code a recipient
.To = Sheets("Route Change").Range("G27")
'Uncomment the line below to hard code a subject
.Subject = "Frequency Increase Request"
'Uncomment the lines below to hard code a body
'.body = "Dear John" & vbCrLf & vbCrLf & _
'"Here is the file you asked for"
.Attachments.Add WB.FullName
.Display
End With


'Delete the temporary file
WB.ChangeFileAccess Mode:=xlReadOnly
Kill WB.FullName
WB.Close SaveChanges:=False


'Restore screen updating and release Outlook
Application.ScreenUpdating = True
Set oMail = Nothing
Set oApp = Nothing
End Sub