adapt this to your needs

Sub test()
Dim ws As Worksheet, ws2 As Worksheet
Dim rngfound As Range
Dim rng As Range
Dim toFind As String
Set ws = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")
Set rng = ws2.Columns("A:A")
toFind = ws.Range("A1").Value
With rng
Set rngfound = .Find(toFind, lookat:=xlWhole, LookIn:=xlValues)
End With
If Not rngfound Is Nothing Then
Application.Goto ws2.Range("A" & rngfound.Row), scroll:=True
End If

End Sub

--


Gary


"DaveM" wrote in message
. uk...
Hi Gary thanks for the reply

I need to find in sheet2 Column A

Thanks

Dave


"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
what columns are you searching on sheet2, all of them? this is similar to
what i posted to another question. just change the ranges and sheet names.

Sub test()
Dim ws As Worksheet, ws2 As Worksheet
Dim rngfound As Range
Dim rng As Range
Dim toFind As String
Set ws = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")
Set rng = ws2.Range("A1:A30")
toFind = ws.Range("A1").Value
With rng
Set rngfound = .Find(toFind, lookat:=xlWhole, LookIn:=xlValues)
End With
If Not rngfound Is Nothing Then
Application.Goto ws2.Range("A" & rngfound.Row), scroll:=True
End If

End Sub




--


Gary


"DaveM" wrote in message
. uk...
Hi

Code Needed to do this from a macro,

Sheet1 cell A1, the value in this cell changes.

How can I get the content of this cell and put it in a Find Macro,

Then goto Sheet2 Column A, and find down that column for what was in sheet1
A1. the value in sheet1 A1 changes sometimes.

Thanks in advance

Dave