This one does it:

'user changes a selection on a worksheet dropdown

Sub SetScrollRow()
Dim drp As DropDown
Set drp = ActiveSheet.DropDowns("RHFA_DETAIL")
ActiveWindow.ScrollRow =
Sheets("Navigation").Range("rhfa_details").Offset( 1,
drp.ListIndex).Value
End Sub