The Application.Goto command that you commented out didn't do it for you?

--
Rick (MVP - Excel)


"Ross" wrote in message
...
I can successfully find Data in a Pivot table Worksheet called "Pivot"
using
this code:

wsPivot.Activate
wsPivot.Columns("C:C").Select

Dim FirstFound As Object
Set FirstFound = Selection.Find(What:=SearchIND_ID, After:=ActiveCell,
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If Not FirstFound Is Nothing Then
'MsgBox ("The first location found on Pivot Sheet is:" &
FirstFound.Address)
wsPivot.Range(FirstFound.Address).Select
'Application.Goto Reference:=wsPivot.Range(FirstFound.Address)

Else
'MsgBox ("Nothing was found")
wsGE.Activate
End If

The problem is that if the found/select range is in row 3,267, I must
scroll down 3,267 row to view the .Active (found cell).

How can I get the found record into the current window view so that I
don't
have to scroll to it?

Many Thanks

Ross