Cellule active sur une colonne

Bonjour à tous,

j'ai un code qui ne marche pas je n'arrive pas à trouver

J'aimerais que lorsque je clic sur le "commandbutton10" si mon curseur est sur une cellule de la colonne R je fait la commande.

Private Sub CommandButton10_Click()
If ActiveCell.Column(R, R). Then
  ActiveCell = Me.ComboBox10
  Unload Me
  End If
End Sub

Merci de votre aide.

Bonjour,

Private Sub CommandButton10_Click()
    If ActiveCell.Column = 18 Then
        ActiveCell = Me.ComboBox10.Value
        Unload Me
    End If
End Sub

Merci beaucoup