vba to loop through a column containing file paths and print

[cknnugget]

I'm writing vba to print all files listed in a table column. The macro works for one filename however, I'm not sure how to loop through the rest of the column to print all the workbooks?
The folder path is located (Sheet9.name).Range("D2")
The file names are located in column A5 and down
This code works for the first Cell in the column A5

Dim sourcefolder As String
Dim sourcefile As String
sourcefolder = (Worksheets(Sheet9.name).Range("D2"))
sourcefile = Range("A5")
Workbooks.Open (sourcefolder) & (sourcefile)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
ActiveWindow.Close

How do I loop through changing the file name to contained in the next cell?

 

[rollis13]

This could be a solution:

Option Explicit
Sub test()
    Dim sourcefolder As String
    Dim sourcefile As String
    Dim x      As Long
    sourcefolder = (Worksheets(Sheet9.Name).Range("D2"))
    For x = 5 To Range("A" & Rows.Count).End(xlUp).Row
        sourcefile = Range("A" & x)
        Workbooks.Open (sourcefolder) & (sourcefile)
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        ActiveWindow.Close
    Next x
End Sub

 

[tonydev314]

Dim rowCount As Integer
rowCount = 0

Do While Range("A5").Offset(rowCount,0).Value <> ""
sourceFile = Range("A5").Offset(rowCount,0).Value
'Your code to print sourcefile
rowCount = rowCount + 1

Loop

 

[cknnugget]

Worked perfect thank you.

This could be a solution:

Option Explicit
Sub test()
    Dim sourcefolder As String
    Dim sourcefile As String
    Dim x      As Long
    sourcefolder = (Worksheets(Sheet9.Name).Range("D2"))
    For x = 5 To Range("A" & Rows.Count).End(xlUp).Row
        sourcefile = Range("A" & x)
        Workbooks.Open (sourcefolder) & (sourcefile)
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        ActiveWindow.Close
    Next x
End Sub

Worked perfectly thank you

 

[rollis13]

Glad we were able to help.