Posts by vrajeshbrd

    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