How to designate active row

[rjplante]

I have some code listed below and I want to have it search through the list and stop when it finds a match and scroll to that row. It flags on the highlighted line and I don't know what to do to ix it.

Thanks,

Robert

    Dim dRow As Range

    Range("A:A").Find(Range("AA10").Value, LookIn:=xlValues).Select
        
    Set dRow = ActiveRow.Value

' Scroll to cell A1
    With ActiveWindow
        .ScrollColumn = 1
        .ScrollRow = dRow
    End With

 

[Paradigm_Shift]

Rows(ActiveCell.Row).Select

 

[rjplante]

Thank you! I'm better now!