Option Explicit
Private LastRow As Long
Private LatsCol As Long
 
Private Sub Grid1_CellClick(ByVal Row As Long, ByVal Col As Long, _
  ByVal Button As Integer, ByVal Shift As Integer)
 
  If (LastRow <> Row) Or (LastCol <> Col) Then
    If LastRow <> 0 And LastCol <> 0 Then
      With Grid1.ListItems(LastRow)
        .CellBackColor(LastCol) = -1
        .CellForeColor(LastCol) = -1
      End With
    End If
 
    LastRow = Row: LastCol = Col
    With Grid1.ListItems(Row)
      .CellBackColor(Col) = Grid1.HighlightBackColor
      .CellForeColor(Col) = Grid1.HighlightForeColor
    End With
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de