Then
            If .CellSelected(iRow, 1) Then
               Debug.Print "SELECTED:" &amp; iRow
            End If
         Else
            For iCol = 1 To .Columns
               If .CellSelected(iRow, iCol) Then
                  Debug.Print "SELECTED:" &amp; iRow, iCol
               End If
            Next iCol
         End If
      Next iRow
   End With
End Sub

''' &lt;summary&gt;
''' Remove a column from the grid;
''' &lt;/summary&gt;
Private Sub cmdRemoveCol_Click()
Dim iCol As Long
Dim sKey As S