And what's the text of the error message? - the number is less useful.

Tim


***********************
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