did you add code to open the workbook, or just get "n" copies of the sheet
that was active when you ran the code?

--
Regards,
Tom Ogilvy

"Bob Phillips" wrote in message
...
Jim,

What is that you want that you don't get? It may seem obvious, but I tried
this with my directory and it worked fine for me.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Jim May" wrote in message
news:SeuKc.374$ci.127@lakeread04...
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