Sub saveIOI()
Dim endI As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Dim ioiname As String
ioiname = "F:\Delta XXXXXXXXXXXXXXXXXXXX " & Format(Date, "DDMMMYY") & ".xls"
If Range("A10") = "" Then
endI = Range("A10")
Else
endI = Range("A10").End(xlDown).Row
End If
Range("D9:K" & endI).Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "Swap Template"
ActiveSheet.Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Columns("A:H").EntireColumn.AutoFit
Application.CutCopyMode = False
Range("A2").Select
ActiveSheet.Move
ActiveWorkbook.SaveAs ioiname, FileFormat:=56
ActiveWorkbook.Close
Dim olapp As Outlook.Application
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = "XXXX@YYY.com"
msg.Subject = "IOI - " & Format(Date, "DDMmmYY") & " - " & Range("G3").Value
msg.Attachments.Add Source:=ioiname
msg.Display
Sheets("IOI").Range("G3").Select
Set olapp = Nothing
Set msg = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub