Skip to content

Instantly share code, notes, and snippets.

@zommuter

zommuter/Excel.OpenInNewInstance.bas

Created November 24, 2014 14:01
Show Gist options
  • Save zommuter/2496054320979c3740a2 to your computer and use it in GitHub Desktop.
Save zommuter/2496054320979c3740a2 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Excel.OpenInNewInstance.bas
Sub OpenInNewInstance()
' http://superuser.com/a/277794/35237
Dim objXLNewApp As Excel.Application
Dim doc As String
doc = ActiveWorkbook.FullName
ActiveWorkbook.Close True
Set objXLNewApp = CreateObject("Excel.Application")
objXLNewApp.Workbooks.Open doc
objXLNewApp.Visible = True
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment