Dubbel klik en deactivate cell

[BigG2016]

Beste,

Ik gebruik volgende code voor het veranderen van een teken in een cel na een dubbelklik.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cl As Range
Rng = ActiveCell.Address
If Range(Rng) = "a" Then Range(Rng) = "r": Range(Rng).Select: Exit Sub
If Range(Rng) = "r" Then Range(Rng) = "a": Range(Rng).Select: Exit Sub
End Sub

Het probleem is dat hij na het uitvoeren van de code in de active cell blijft. Ik zou graag hebben dat hij de de cel selecteert maar niet in "edit" mode?

Kan iemand mij helpen aub?

Alvast bedankt

Guy

 

[VenA]

Cancel = True

 

[BigG2016]

Thx, had een vermoeden dat het simpel was maar vond het niet.

Bedankt!