I have the following macro (i got from somewhere) that opens and prints the
excel files that i open in a common folder:

Public Sub PrintWorkbook()
Dim i As Integer
Dim FileNames As Variant
FileNames = Application.GetOpenFilename(, , "Choose workbooks", , True)
If IsArray(FileNames) Then
For i = 1 To UBound(FileNames)
Workbooks.Open FileNames(i)
ActiveWorkbook.ActiveSheet.PrintOut
ActiveWorkbook.Close (False)
Next i
End If
End Sub

What i want to do is open files that are located in different folders and
print them, what should i add to this program?