I have this little sub in Excel 2013 which opens a message box and closes it after 1 second.  Its been working for months now all of a sudden it stopped working.  I experimented with different AckTimes and it still refuses to close the message box. Does it have to do with the growing size of the database?

Sub RefreshMessageBox()
    Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    'Set the message box to close after x seconds (AckTime)
    AckTime = 1
    Select Case InfoBox.Popup("Refreshing Data. Please Wait for DONE message . . ", _
    AckTime, "Data Refresh", 0)
        Case 1, -1
            Exit Sub
    End Select
End Sub