Find Value and go to that Value in Another Sheet

[SteveC]

I, I recorded a macro to go to a value on another sheet ("Hlist") as
specified on the first sheet ("Snapshot") in cell c4, but it's not working.
The recording only allows me to look for a set value ("Apples") not a value
located in C4 on sheet "SnapShot"... Thanks for any suggestions.

Sub Go_To_Value()
'
' Macro3 Macro
'
Sheets("SnapShot").Select
Range("C4").Select
Selection.Copy

Sheets("HList").Select
Columns("D:D").Select
Selection.Find(What:="Apples", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate


End Sub

[Die_Another_Day]

Change What:="Apples" to What:=Range("C4").Value

HTH

Die_Another_Day
SteveC wrote:
> I, I recorded a macro to go to a value on another sheet ("Hlist") as
> specified on the first sheet ("Snapshot") in cell c4, but it's not working.
> The recording only allows me to look for a set value ("Apples") not a value
> located in C4 on sheet "SnapShot"... Thanks for any suggestions.
>
> Sub Go_To_Value()
> '
> ' Macro3 Macro
> '
> Sheets("SnapShot").Select
> Range("C4").Select
> Selection.Copy
>
> Sheets("HList").Select
> Columns("D:D").Select
> Selection.Find(What:="Apples", After:=ActiveCell, LookIn:=xlValues, _
> LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
> MatchCase:=False, SearchFormat:=False).Activate
>
>
> End Sub

[Die_Another_Day]

Sry forgot the sheet name:
What:=Sheets("SnapShot").Range("C4").Value

Die_Another_Day

Die_Another_Day wrote:
> Change What:="Apples" to What:=Range("C4").Value
>
> HTH
>
> Die_Another_Day
> SteveC wrote:
> > I, I recorded a macro to go to a value on another sheet ("Hlist") as
> > specified on the first sheet ("Snapshot") in cell c4, but it's not working.
> > The recording only allows me to look for a set value ("Apples") not a value
> > located in C4 on sheet "SnapShot"... Thanks for any suggestions.
> >
> > Sub Go_To_Value()
> > '
> > ' Macro3 Macro
> > '
> > Sheets("SnapShot").Select
> > Range("C4").Select
> > Selection.Copy
> >
> > Sheets("HList").Select
> > Columns("D:D").Select
> > Selection.Find(What:="Apples", After:=ActiveCell, LookIn:=xlValues, _
> > LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
> > MatchCase:=False, SearchFormat:=False).Activate
> >
> >
> > End Sub

[SteveC]

Thank you!