Can anyone tell me why my macro isn't working properly?

The following code has been working flawlessly for quite some time but now it won't do as I need it to.

I want the macro to take specific sheets, create a PDF with them and attach the PDF file to an Outlook email. In this case, it's sheets 2, 3, 4 and 8. However, it will only attach the active sheet. I can't figure out why.

Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
Sheets(Array(2, 3, 4, 8)).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Addresses = Sheets("TerminalWorkload-Total").Range("aa10").Value
With OutlookMail
.To = Addresses
.CC = ""
.BCC = ""
.Subject = "Terminal Workload Calculator - Mobile/109"
.Body = " "
.Body = "Terminal Workload Calculator - Mobile/109 - Fail to plan... Plan to fail"
.Attachments.Add FileName
.Display
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Thanks!