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