Pc Game Bandit King 2. I need some help with this coding. I want to open files from an excel list. Sub Openfile() Dim wkbOne as Workbook Set wkbOne = Application.Workbooks.Open(Filename:=Worksheets('Sheet1').Range('A1') & Worksheets('Sheet1').Range('B1') 'where 'A1' is the path where the file located and 'B1' is the file name.' End Sub When I run this it will work, but if I change to below it won't open all file in range, what's wrong with this? Sub Openfile() Dim wkbOne as Workbook Set wkbOne = Application.Workbooks.Open(Filename:=Worksheets('Sheet1').Range('A1:A10') & Worksheets('Sheet1').Range('B1:B10') End Sub Thanks for the help. That was great.

Using the following VBA to list files in a folder in a worksheet: 1. Open a worksheet, click Developer >Visual Basic, a new Microsoft Visual Basic for applications window will be displayed, click Insert >Module, and then input the following codes in the module: VBA code: List all file names in a folder. Jeep Liberty Engine Serial Number. This Excel trick uses an old Excel Function FILES() to get the list of all the File Names from a Folder in Excel (or a specific set of file names in Excel). Getting A List Of File Names Using VBA. Category: VBA Functions If your macro needs to present a list of files for the user to choose from, the easiest approach is.

Thanks I try to put password on the files. I add on the below Sub Openfile() Dim wkbOne(1 To 10) As Workbook, i As Long, j As Long For i = 1 To 10 If Worksheets('Sheet1').Range('A' & i).Value ' And Worksheets('Sheet1').Range('B' & i).Value ' Then j = j + 1 Set wkbOne(j) = Workbooks.Open(Worksheets('Sheet1').Range('A' & i).Value & Worksheets('Sheet1').Range('B' & i).Value) End If wkbOne(i).Password = Worksheets('Sheet1').Range('C' & i).Value Next i MsgBox j & ' Files Protected', vbInformation End Sub But it didn't work.