Open several files from list of paths

[JorgeJF]

Hi,
I'm totally newbie at VBA.
Trying to create a simple macro to open several excel workbooks, with each one of their full paths inside one cell.
It works for just one, but not for more workbooks.
In this case, the paths are inside cells C2, C3 and C4.
I tried 3 versions :

Sub proTest()
Dim varFileName As String
varFileName = Sheets("Lista").Range("C2").Value
Workbooks.Open varFileName
varFileName = Sheets("Lista").Range("C3").Value
Workbooks.Open varFileName
varFileName = Sheets("Lista").Range("C4").Value
Workbooks.Open varFileName

End Sub

(the above one only opens the first file, in C2)

Private Sub AbrirFicheiros_Click()
Dim varFileName As String
For i = 2 To 4
varFileName = Sheets("Lista").Range(Cells(i, 3)).Value
Workbooks.Open varFileName
Next i
End Sub


Sub proTest()
Workbooks.Open Sheets("Lista").Range("C2").Value
Workbooks.Open Sheets("Lista").Range("C3").Value
Workbooks.Open Sheets("Lista").Range("C4").Value
End Sub

The last 2 do not work at all, it tells me it's out of range...

Regards

[mancubus]

welcome to the forum.

Sub vbax_63596_open_multiple_files()

    With ThisWorkbook.Worksheets("Lista")
        Workbooks.Open .Range("C2").Value
        Workbooks.Open .Range("C3").Value
        Workbooks.Open .Range("C4").Value
    End With


End Sub

[JorgeJF]

welcome to the forum.

Sub vbax_63596_open_multiple_files()

    With ThisWorkbook.Worksheets("Lista")
        Workbooks.Open .Range("C2").Value
        Workbooks.Open .Range("C3").Value
        Workbooks.Open .Range("C4").Value
    End With


End Sub

Great ! That was fast !
I'm currently out of my office and cannot test it but shall do next Monday.
Tank you !