Best way to loop this? copying from other WB

[JumboCactuar]

Hi,
i have the following:

Sub fg()Dim WB1 As Workbook, WB2 As Workbook
Dim WS1 As Worksheet, WS2 As Worksheet


file1 = Sheets("variables").Range("A1")


myFile = "C:\Temp\1\" & file1 & ".xlsx"


Set WB1 = ThisWorkbook
Set WS1 = WB1.Sheets("Sheet1")


Set WB2 = Workbooks.Open(myFile)
Set WS2 = WB2.Sheets("sheet1")


LR = WS1.Range("A65000").End(xlUp).Row + 1


WS2.Range("A1:A10").Copy: WS1.Range("A" & LR).PasteSpecial xlPasteValues


WB2.Close
End Sub

but say if i had filenames in Sheets("variables").Range("A1:A50")
how could i loop through them all ?

appreciate any help

 

[Fluff]

How about

Sub fg()
Dim WB1 As Workbook, WB2 As Workbook
Dim WS1 As Worksheet, WS2 As Worksheet
Dim Cl As Range

For Each Cl In Sheets("Variables").Range("A1:A50")
   If Cl.Value <> "" Then
      File1 = Cl.Value
      
      myFile = "C:\Temp\1\" & File1 & ".xlsx"
      
      
      Set WB1 = ThisWorkbook
      Set WS1 = WB1.Sheets("Sheet1")
      
      
      Set WB2 = Workbooks.Open(myFile)
      Set WS2 = WB2.Sheets("sheet1")
      
      
      LR = WS1.Range("A65000").End(xlUp).Row + 1
      
      
      WS2.Range("A1:A10").Copy: WS1.Range("A" & LR).PasteSpecial xlPasteValues
      
      
      WB2.Close
   End If
Next Cl
End Sub

 

[JumboCactuar]

Thankyou, this works

 

[Fluff]

You're welcome & thanks for the feedback