Further in Cell A12 I have 2245 and in D3 I have 2245.
In Cell A5 I have 456, si If I can D3 to 456,,, It works
In stepping thru Cell=456,
Strange...
TIA,

"Jim May" wrote in message
news:qq%he.6951$It1.5267@lakeread02...
Bob: On a smaller scale I've set up some data, as follows and run:

Private Sub CommandButton1_Click()
Dim cell As Range
With Worksheets(1).Range("A2:A16")
Set cell = .Find(Range("D3").Value, LookIn:=xlValues)
If Not cell Is Nothing Then
cell.Activate
End If
End With
End Sub

As I step thru the code After Line 4 Set Cell -- Cell = Nothing...??
What am I missing?
Jim

"Bob Phillips" wrote in message
...
Don't know what happened with that post

With Worksheets(1).Range("A2:A50")
Set cell = .Find(Range("K12").Value, LookIn:=xlValues)
If Not cell Is Nothing Then
cell.Activate
End If
End With

--
HTH

Bob Phillips

"Bob Phillips" wrote in message
...
With Worksheets(1).Range("A2:A50") Set cell =
.Find(Range("K12").Value,
LookIn:=xlValues) If Not cell Is Nothing Then cell.Activate
End
IfEnd With-- HTH
Bob Phillips

"Nigel" wrote in message
...
Hi,
i am really struggling to create a macro to carry out the
following.
( i am quite new to this and presently using a book but things are
explained
fully!)

lets say cell K12 = 2245
i have a range of A2:A50 containing a list between 2220 & 2270

i need my macro to look at the value of K12. Find that value in
range,
and
make the cell with that value active
so in my list between 2220 & 2270 is an activecell where the value
is
2245

i hope this can be done and hope that someone can help me.

Regards,

Nigel