if application.Countif(Columns(2),"END") = 0 Then
msgbox "End not found"
End if

--
Regards,
Tom Ogilvy


"Gary Prescott via OfficeKB.com" <u15117@uwe wrote in message
news:578cb6d87a336@uwe...
I have a report and the END appears believe it or not at the END!!

However our slave devices are prone to crashes and the full file is not
always outputed. When I use a macro to disect this report I need it to
seach
column B and find the word END. If this word is not in the report I need
it
flash a pop up warning saying that the full file was not outputed. If its
there there is no need for a prompt

Any ideas??

--
Message posted via http://www.officekb.com