M
michaelberrier
I am using a Range(XX).Find search to find a name in a single column,
and I am trying to build an error handling routine so that different
actions will execute depending on whether the query is found. The
trouble is that the error routine executes every time regardless of the
result of the search.
Here is the code:
Sub Look_Here1()
Dim FoundCell As Range
Dim WhatFor As Variant
WhatFor = ActiveSheet.Cells(7, 2).Value
Set FoundCell = Range("B8:B990").Find(What:=WhatFor,
after:=ActiveCell, _
SearchDirection:=xlNext, searchorder:=xlByRows,
_
MatchCase:=False)
FoundCell.Offset(0, -1).Select
ActiveCell.FormulaR1C1 = "X"
Selection.Offset(0, 3).Select
On Error GoTo NotFound
NotFound:
Range("a7").Select
ActiveCell.FormulaR1C1 = "X"
Range("D7").Select
End Sub
Where have I gone wrong?
Any help will be appreciated.
mb
and I am trying to build an error handling routine so that different
actions will execute depending on whether the query is found. The
trouble is that the error routine executes every time regardless of the
result of the search.
Here is the code:
Sub Look_Here1()
Dim FoundCell As Range
Dim WhatFor As Variant
WhatFor = ActiveSheet.Cells(7, 2).Value
Set FoundCell = Range("B8:B990").Find(What:=WhatFor,
after:=ActiveCell, _
SearchDirection:=xlNext, searchorder:=xlByRows,
_
MatchCase:=False)
FoundCell.Offset(0, -1).Select
ActiveCell.FormulaR1C1 = "X"
Selection.Offset(0, 3).Select
On Error GoTo NotFound
NotFound:
Range("a7").Select
ActiveCell.FormulaR1C1 = "X"
Range("D7").Select
End Sub
Where have I gone wrong?
Any help will be appreciated.
mb