If Error

  • Thread starter Thread starter Mike
  • Start date Start date
M

Mike

Hi.

The following code finds a text string in
worksheet "Blank 1". I need to have a msgbox come-up if
the text is not found. How should I program so that an
error won't throw the user into the module?

myRow = Worksheets("Blank 1").Rows.Find
(What:=AgentName).Row + 1

Thanks,
Mike.
 
Try this:

On Error Resume Next 'disable error
myRow = Worksheets("Blank 1").Rows.Find _
(What:=AgentName).Row + 1
If myRow > 0 Then
'do something
MsgBox myRow
Else
MsgBox AgentName & " not found"
End If
On Error GoTo 0 'reset error
 
Mike,

Try something like

Dim FoundCell As Range
Set FoundCell = Worksheets("Blank 1").Find(What:=AgentName)
If FoundCell Is Nothing Then
Msgbox "Not Found"
Else
MyRow = FoundCell.Row
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
Back
Top