Replace your .SAVEAS command with mine (Not sure what you mean)
Can you show me?
Code:
Sub Saveandget()
FileName = Application.GetSaveAsFilename
MsgBox (FileName)
ThisWorkbook.saveas (FileName)
Sheets("UPDATE").Select
ActiveWindow.SelectedSheets.Delete
End Sub