Article ID: 113589
Article Last Modified on 10/28/2003
Sub Grid1_Click ()
' Following statements highlight all cells except clicked cell:
If grid1.Row > 0 Then
grid1.SelStartRow = grid1.Row
grid1.SelEndRow = grid1.Row
grid1.SelStartCol = grid1.fixedcols ' Start after fixed columns.
grid1.SelEndCol = grid1.cols - 1 ' end at the last columns.
' Rows & columns are numbered starting at 0,
' so the last column is 1 less than the Cols property
End If
' Following two lines help highlight the individual cell, so change
' these lines to comments to see the difference:
grid1.Row = 0
grid1.Col = 0
End SubAdditional query words: 1.00 2.00 3.00
Keywords: KB113589