Sub SAVEAS()
'
' SAVEAS Macro
'

'
    ChDir "J:\ProgramOps\Exceptions Masters & Data\Aon Hewitt"
     
    ActiveWorkbook.SAVEAS Filename:= _
        "J:\ProgramOps\Exceptions Masters & Data\Aon Hewitt\Aon Hewitt Exceptions 07-07-14.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Sheets("IMPORT-SAVE").Select
    ActiveWindow.SelectedSheets.Delete
    ActiveWorkbook.Save
    Application.Left = 58.75
    Application.Top = 41.5
    Sheets("Hewitt Delayed Retirement Plans").Select
    Range("E25").Select
    Sheets("Retirement Update").Select
    Range("G19").Select
End Sub