No, this doesn't work. It's strange, because if I put
application.displayalerts = false
the error message is not displayed, but it opens the corrupt file and does
not set an error code.

If I don't use application.displayalerts = false, then if I select "cancel"
on the message "file is not in recognizable format", then it sets an error
code for which I can check.

Any suggestions?

"Patrick Molloy" wrote:

in the OpenFileAndCheck
try adding
Application.DisplayAlerts = False
at the very beginning

wasn't able to test it

"laavista" wrote in message
...
I'm using Excel 2003.

I'm looping through files, opening them, and writing info into another
Excel
spreadsheet. I need to check for corrupt excel files and unrecognizable
formats. I'm getting close, but I'm getting the error message "this file
is
not in a recognizable format" and the user would have to remember to
select
"cancel" (and not "OK"). I'd like to suppress this error message.

My code:

In my sub:

Global FileIsCorrupt as boolean
Global NewFileToCheck as string
Global FileName as string
Global Path as string

(Filename and path are set at this point...)

OpenFileAndCheck 'call function

If FileIsCorrupt = True then 'if true, file is corrupt or
unrecognizable
msgbox ("msg to user that it is corrupt and file is being skipped')
GoTo FoundCorruptFile ' skips over writing info from file
End if

=====
Function OpenFileAndCheck() as Boolean

On Error GoTo ErrHandler
FileIsCorrupt = False 'set to false--it will be reset to true if
file is corrupt

Set NewFileToCheck = Workbooks.Open(Filename:=Path & FileName)

Exit Function

ErrHandler:
If Err < 0 then
FileIsCorrupt = Tre
End if

End Function
=====

Your help would be so appreciated!