Runtime error textbox problem - help required
Hello everyone
I am entering text into a textbox then trying to run code adapted from
"Find" to locate a cell on the worksheet.
I get a runtime error 424 - Object required but as I have limited knowledge
I dont know why!
When I debug if I hover the curser over the highlighted row the correct text
from the textbox is shown but if I hover over MyFind in the next row the
value is empty.
Could anyone tell me what is required?
Here is the code I am using
Sub MyFind()
'
' MyFind Macro
' Macro recorded 19/10/2004 by Kenny
'
Dim MyFind As Range
Set MyFind = UserForm1.TextBox2.Value xxxxxxxxxxxxxxxxxx this is
the problem row
'
Cells.Find(What:=MyFind, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub
|