鼠标右击选中单元格

用RightClick可以知道点了鼠标右键，怎么让鼠标右键点的单元格设置为选中的单元格？

Private Sub lvSpread_RightClick(ByVal ClickType As Integer, ByVal Col As Long, ByVal Row As Long, ByVal MouseX As Long, ByVal MouseY As Long)

End Sub

Private Sub fpSpread1_RightClick(ByVal ClickType As Integer, ByVal Col As Long, ByVal Row As Long, ByVal MouseX As Long, ByVal MouseY As Long)
    fpSpread1.SetActiveCell Col, Row
    PopupMenu mnuFile
End Sub