Sub Tester1()
Dim itemn As String
itemn = "&5050"
Columns("A:A").Select
Selection.Find(What:=itemn, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
_
MatchCase:=False).Activate

Debug.Print itemn
End Sub

worked fine for me.

--
Regards,
Tom Ogilvy

"ben" wrote in message
...
umm, no that still does not quite work, It seems that without the special
character, '5050' instead of '&5050' it will find the cells everytime, if
I
put any special character onto it, I receive the '91' Run time error
everytime
Do the special characters perhaps change how VBA reads it?


"Ron de Bruin" wrote:

Hi Ben

This is working for me with &5050

Sub Find_First()
Dim FindString As String
Dim Rng As Range
FindString = InputBox("Enter a Search value")
If Trim(FindString) < "" Then
Set Rng = Range("A:A").Find(What:=FindString, _
After:=Range("A" & Rows.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then Application.Goto Rng, True
End If
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"ben" wrote in message
...
I am simply trying to find a user-input variable on the worksheet.

Dim itemn As String
itemn = "&5050"
Columns("a:a").Select
Find(What:=itemn, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns,
SearchDirection:=xlNext, _
MatchCase:=False).Activate

this code always returns the compiler error 'Object variable or With
block
not set.'
This is the entire code. I do not recieve the error if use a set value
in
place of 'itemn'. I also do not recieve the error if I do not set
'itemn' to
a value
anyone able to tell me why this happens???
thanks