Dim rng1 as Range, rng2 as Range
set rng1 = Columns(1).Find("Start")

set rng2 = Columns(1).Find("End")

if not rng1 is nothing then
msgbox "Start at " & rng1.row
End if
if not rng2 is nothing then
msgbox "End at " & rng2.row
End if

This doesn't raise an error if the search term isn't found.

--
Regards,
Tom Ogilvy



"e18 " wrote in message
...
I could of course use *On Error Resume Next* (tab1start and tab2start
are equal to zero if Columns.Find not found) as a workaround, but I
still would very much like an answer to how to have more than one *On
Error GoTo* in a macro.

Thank you.

Erlend


---
Message posted from http://www.ExcelForum.com/