Skip to content

Instantly share code, notes, and snippets.

@bohops

bohops/Excel_VBA_Macro_JScript

Created September 2, 2020 20:41
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save bohops/2255f320f9dd67e9e41b30455954b1a7 to your computer and use it in GitHub Desktop.
Save bohops/2255f320f9dd67e9e41b30455954b1a7 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Excel_VBA_Macro_JScript
Sub Workbook_Open()
RunMe
End Sub
Function RunMe()
Dim ScriptEngine
Set ScriptEngine = CreateObject("MSScriptControl.ScriptControl")
ScriptEngine.Language = "JScript"
ScriptEngine.Eval ("var shell = new ActiveXObject('WScript.Shell');shell.Popup('text');")
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment