Private Sub sgrdResults_BeforeCellClick(ByVal nRow As Long, ByVal nCol As Long, _
  ByVal Button As Integer, ByVal Shift As Integer, bCancel As Boolean)
 
    If sgrdResults.IsSelected(nRow) And Button = 1 And Shift = 0 Then
        bCancel = True
    End If
 
End Sub

-------------------------------------------
Follow the White Rabbit !!!