How to open 2 workbooks at the same time via VBA..

[omairhe]

How can I open two workbooks at the same time with folder paths and names already given in cells C2 and C3.

C2 =

D:\Users\Tiger Woods\One Share\2021\03-2021 (user.one).xlsb

C3 =

D:\Users\Tiger Woods\Two Share\2021\03-2021 (user.two).xlsb

Thanks and will appreciate plenty.

 

[Anthony47]

You need a macro; for example:

Sub OpenC2C3()
Workbooks.Open Range("C2").Value
Workbooks.Open Range("C3").Value
End Sub

Copy the code into a standard module of your vba, and when you are ready start the macro OpenC2C3

Bye

 

[omairhe]

You need a macro; for example:

Sub OpenC2C3()
Workbooks.Open Range("C2").Value
Workbooks.Open Range("C3").Value
End Sub

Copy the code into a standard module of your vba, and when you are ready start the macro OpenC2C3

Bye

I get subscript out of range on C3. For C2 it works fine.

 

[Anthony47]

I simplified it too much... Of course when you open C2 then Range C3 has a new value. Try this version:

Sub OpenC2C3()
Dim FileOne As String, FileTwo As String
'
FileOne = Range("C2").Value
FileTwo = Range("C3").Value
'
Workbooks.Open FileOne
Workbooks.Open FileTwo
End Sub

Bye

 

[omairhe]

I simplified it too much... Of course when you open C2 then Range C3 has a new value. Try this version:

Sub OpenC2C3()
Dim FileOne As String, FileTwo As String
'
FileOne = Range("C2").Value
FileTwo = Range("C3").Value
'
Workbooks.Open FileOne
Workbooks.Open FileTwo
End Sub

Bye

This works as expected. I was hoping if your code can be altered to now close both the workbooks, without saving any changes?

 

[Anthony47]

If C2 and C3 in the starting workbook are unchanged then you could use the following macro:

Sub CloseC2C3()
Dim FileOne As String, FileTwo As String, I As Long
'
For I = 0 To 1
    FileOne = ThisWorkbook.Sheets("TheSheetName").Range("C2").Offset(I, 0).Value         '<<<
    FileOne = Mid(FileOne, InStrRev(FileOne, "\", , vbTextCompare) + 1)
    Workbooks(FileOne).Close False
Next I
End Sub

Edit Sheet name in line marked <<<

Bye

 

[omairhe]

If C2 and C3 in the starting workbook are unchanged then you could use the following macro:

Sub CloseC2C3()
Dim FileOne As String, FileTwo As String, I As Long
'
For I = 0 To 1
    FileOne = ThisWorkbook.Sheets("TheSheetName").Range("C2").Offset(I, 0).Value         '<<<
    FileOne = Mid(FileOne, InStrRev(FileOne, "\", , vbTextCompare) + 1)
    Workbooks(FileOne).Close False
Next I
End Sub

Edit Sheet name in line marked <<<

Bye

Many Thanks Anthony. God Bless.