Help to use Sheet name to read other workbooks

Hi,

YOU'll need to hold the workbook names in a list somewhere then use a loop to process the list. So suppose the list is named say "MyWorkbooks" and contains numbers like 2110, 4685..etc then.

'your Dim variables
Dim x as Long

For x =1 to Range("MyWorkbooks").Cells.Count
    path = ActiveWorkbook.Path & Cstr(Range("MyWorkbooks").Cells(x,1)) & ".xlsm"

'your code


Next x