Søg, fra værdi i celle

Hej
Jeg har et regneark med mange rækker og har ofte brug for at søge en bestemt række (som er et tal).
Jeg har lavet denne makro, den virker fint bortset fra den ikke automatisk scroller ned til den linje det drejer sig om.
Sub FindData()
    Application.ScreenUpdating = False
    Range("W2").Select
    ActiveCell.FormulaR1C1 = Range("W2").Value
    Cells.Find(What:=Range("W2").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
Application.ScreenUpdating = True
End Sub

Jeg har forsøgt at lave en makro på fanen der kører, når jeg har tastet i W2, men det virker ikke.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$W$2" Then
        Call FindData
    End If
End Sub

Jeg har også en makro på fanen der farvelægger den række jeg står i, betyder det noget?