Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
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
|Compile Error: Expected List Separator or) error message||5||28|
|Excel - Scroll Speed||3||24|
|Opening second Excel workbook and copying contents of worksheet back to first workbook||8||19|
|In Excel 2007, why do I get a minus result for one cell but not the other when both cells are formatted exactly the same?||22||18|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!