Public Sub GridItemEnsureVisible(ByRef oGrid As Object, _
  Optional ByVal nRow As Long = 0)
 
  With oGrid
    If nRow = 0 Then nRow = .Row
    If nRow > 0 Then
      If Not (nRow >= .TopRow And nRow <= .TopRow + .ScreenRows - 1) Then
        .TopRow = nRow
      End If
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de