Try:

Dim MyFind as Variant
MyFind = UserForm1.TextBox2.Value
' the rest of your code

As it is a text box you can probably also use:

Dim MyFind as String which is more efficient in memory (but no big deal
here)

And I would suggest you call the subroutine something different to the
variable, for example, MyFindSub

Regards

Trevor


"N E Body" wrote in message
...
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