CODEWITHSUNDEEP
vbaexcel
Chase
Chase

Reputation: 584

Excel/VBA: Open New Workbook In New Window

I am using Excel 2010, and am looking for a VBA script that will open a new workbook in a new window (such that I could, for example, place one workbook on each of 2 monitors).

I'd then place this VBA/macro on the ribbon and assign it a shortcut key. Thus, it'd work like CTRL+N, but the new workbook would open in a separate window/instance of Excel, instead of the same.

I've tried just using Shell ("excel.exe"), but I suppose since it is running from my PERSONAL.XLSB workbook, it then asks if I want to Read Only or Notify.

I just want CTRL+N functionality, but with the new window addition.

Thank you!

Upvotes: 2

Views: 14567

Answers (2)

tigeravatar
tigeravatar

Reputation: 26660

Alternate way to do the same thing, includes selecting the file you want to open:

Sub tgr()

    Dim strFilePath As String
    Dim xlApp As Object

    strFilePath = Application.GetOpenFilename("Excel Files, *.xls*")
    If strFilePath = "False" Then Exit Sub  'Pressed cancel

    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    xlApp.Workbooks.Open strFilePath

End Sub

Upvotes: 3

Rory
Rory

Reputation: 34075

You can use this:

Sub NewApp()
    With CreateObject("Excel.Application")
        .Workbooks.Add
        .Visible = True
    End With
End Sub

but be aware that any automation of this sort won't load startup workbooks and add-ins by default.

Upvotes: 2

Related Questions