Trap a find error

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have the following code. How can I most efficiently exit the function if no
target string is found?

strSearchColumn = "I:I"
strTarget = "0"
Set rngFind = Range(strSearchColumn).Find(strTarget,
SearchDirection:=xlPrevious)
strLastDeleteRow = rngFind.Row

Thanks in advance.
 
strSearchColumn = "I:I"
strTarget = "0"
Set rngFind = Range(strSearchColumn).Find(strTarget,
SearchDirection:=xlPrevious)
If rngFind Is Nothing Then
MsgBox "Not Found"
Else
strLastDeleteRow = rngFind.Row
End If

HTH
 
Thanks Jim, works great!

Jim Thomlinson said:
strSearchColumn = "I:I"
strTarget = "0"
Set rngFind = Range(strSearchColumn).Find(strTarget,
SearchDirection:=xlPrevious)
If rngFind Is Nothing Then
MsgBox "Not Found"
Else
strLastDeleteRow = rngFind.Row
End If

HTH
Click to expand...
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Using the Find method of a Range object 2
Updating Link to Linked Table through ADO Balks 2
Help with Correct Call for Ron de Bruin's "RDB_Last" to Find Last Row in a Column 1
Set range error 6
Selectblank cells 2
Ron de Bruin - Merge cells from all worksheets 0
Find doesn't find...what the !@#$ 4
works on XP but not on vista 5

Back
Top