M
Mary
Hello,
I am trying to show some values using msgbox after using FIND. But when I
try to find a value that does not exist in the sheet I get an error:
Run_time: "91"
h = InputBox("Type number of holes to find")
For X = 1 To h
np = InputBox("type the name of the hole:")
Cells.Find(What:=np, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
N = ActiveCell
L = ActiveCell.Offset(0, 1)
S = ActiveCell.Offset(0, 2)
MsgBox ("Pozo:" & " " & N & " " & "Linea:" & " " & L & " " &
"Serial:" & " " & S)
End If
Next
How can I trap this run-time error?
Thanks
I am trying to show some values using msgbox after using FIND. But when I
try to find a value that does not exist in the sheet I get an error:
Run_time: "91"
h = InputBox("Type number of holes to find")
For X = 1 To h
np = InputBox("type the name of the hole:")
Cells.Find(What:=np, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
N = ActiveCell
L = ActiveCell.Offset(0, 1)
S = ActiveCell.Offset(0, 2)
MsgBox ("Pozo:" & " " & N & " " & "Linea:" & " " & L & " " &
"Serial:" & " " & S)
End If
Next
How can I trap this run-time error?
Thanks