Sorry, it shoule be error wrapped

On Error Resume Next
Set thisFile = Workbooks.Open("filename")
On Error Goto 0
If Not thisFile Is Nothing Then
'your code
Else
'get the next
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"pete" wrote in message
...
Bob,

Thanks for your clue. I still have a problem; if the file does not exist,
I
have the "run-time error 1004" which terminates the macro because it will
not
allow me to continue.

Anything else I need to add so I if it cannot find the file, it will go to
the next one?

Thanks,
Pete