Sub SaveSendReport()
'
Sheets("Report Summary").Select
Application.Calculation = xlManual
Application.CalculateUntilAsyncQueriesDone
Application.CalculateBeforeSave = True
ActiveWorkbook.Save
Application.DisplayAlerts = False
'Distribute email with copied files
'ActiveWorkbook.SendMail "", ""
'Clean up File for Distribution
Sheets("Report Summary").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Position Risk Summary").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Earning Risk Summary").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
'Remove External Data Links
Sheets("Position Risk Summary").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Earning Risk Summary").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Industry Detail").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Financial Detail").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Haircut Calculator").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Edge Summary").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Contracts Traded").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("StockRisk Summary").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("OptionRisk Summary").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Industry Def").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Long Short Contracts").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Stock Risk Summary Ind Table").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Visible = False
'Set-up file directories
filedate = Format(Date, "mm-dd-yyyy")
Sheets("Report Summary").Select
'Delete previous web page file
ChDir "C:\reports"
Kill "C:\reports\report.htm"
'Save new web page
ActiveWorkbook.SaveAs Filename:= _
"C:\reports\report.htm", FileFormat:=xlHtml, CreateBackup:=True
'Save Archive File
ChDir "C:\reportarchive\"
ActiveWorkbook.SaveAs Filename:= _
"C:\reportAchive\report " & filedate & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
'Print file
Sheets("Report Summary").Select
Sheets("Report Summary").PrintOut
'Close the File
Application.Quit
End Sub