Private Sub Flexgrid_MouseUp(Button As Integer, Shift As Integer, x As Single, _
  y As Single)
Dim nRow As Long
 
    With Flexgrid
      nRowCur = .Row
      MsgBox nRowCur
 
 
    End With
 
End Sub

Cycloheptatrieenylium-Kation