We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub GetAlldata() On Error GoTo GetAlldata_Error Dim pop As IWshRuntimeLibrary.WshShell Dim popRsp As Integer 'Popup response - added this because I thought maybe it was a neccessary evil 'Buncha stuff happens 'Buncha stuff happens 'Buncha stuff happens 'Buncha stuff happens 'Buncha stuff happens Set pop = CreateObject("WScript.Shell") popRsp = pop.Popup("Finished importing data", 3, "Done!", 0) ' '3' is 3 seconds, 0 is a popup window with just "ok" DoEvents ' doesn't seem to affect anything Set pop = Nothing MsgBox ("whee") ' I added this to see if the pop.Popup was acting modal ' sho 'nuff, it doesn't pop up until I hit OK Exit Sub GetAlldata_Error: Debug.Print Err.Number; Err.Description End Sub
Join the community of 500,000 technology professionals and ask your questions.