very cool. both worked.

thanks guys.


--
epr


"ward376" wrote:

You can try opening it with a dummy password and use that error to
tell your code to skip the file and continue:

Sub way()
On Error GoTo errHandler
Workbooks.Open fileName:="C:\somefile.xls", Password:="pw"
Exit Sub
errHandler:
If Left(Err.Description, 12) = "The password" Then
Resume Next
Else
MsgBox Err.Description
End If
End Sub

Cliff Edwards