Code
Sub forAutocloseMsgbox()
Application.ScreenUpdating = True
On Error Resume Next
ActiveWorkbook.Save
Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
'Set the message box to close after 10 seconds
AckTime = 4
Select Case InfoBox.Popup("Done !! Click OK " & Chr(13) & Chr(13), _ AckTime, "RV 7383423400", 0)
Case 1, -1
Exit Sub
End Select
End Sub