Try this:

Sub Find_Value()
Dim myvalue As String
Dim rng As Range, c As Range

myvalue = Sheet2.Range("A2").Value
Sheet3.Activate

Set rng = Sheet3.Range("A2:A457")
Set c = rng.Cells.Find(myvalue)
c.Select
End Sub

Mike F
"vortex2k4" wrote in message
oups.com...
Im not the brightest when it comes writing macros, so this is probably
realy simple.

I want to find a certain value then have it selected so i can
manipulate other values in that row using offset() etc

This is my code so far but i get an error with the c.select

Dim myvalue As String
Sheet2.Activate

myvalue = Sheet2.Range("A2").Select

Sheet3.Activate

Set c = Sheet3.Range("A2:A457").Find(myvalue)

c.Select


Cheers