I've just re-read your comments and noticed
Quote:
when I close button it shows "Updating to server..." I need a code that can see in the title bar until "Saving" turns to "Saved"
This implies that it is not your code that is a problem but that YOU are closing the file before the save is complete. You should let your code do that e.g. see this simple demo
Option Explicit
Public Sub Demo()
Dim objWorkBook As Excel.Workbook
Set objWorkBook = ThisWorkbook
objWorkBook.Save
objWorkBook.Close
End Sub