Off google I found the following code, which I have since modified to
accomplish my subject objective; <<to no avail can someone assist?

Sub Tester9()
PathOnlysource = "C:\Formulas\Backuptest"
ChDir PathOnlysource
TheFile = Dir(PathOnlysource & "\*.xls")
Do While TheFile < ""
ActiveSheet.PrintOut
TheFile = Dir
Loop
End Sub