Try Something like this

Sub test()
Dim rng As Range
On Error Resume Next
Set rng = Range("a1:a100").Find("ron")
If rng Is Nothing Then
Set rng = Range("a1:a100").Find("dave")
End If
If Not rng Is Nothing Then
rng.Offset(0, 1).Select
Else
MsgBox "nothing found"
End If
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"alexm999 " wrote in message ...
Whats the script for the following:

If I look for a something and it's not there, what can i use to do
nothing and look for something else?


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