Macro used to insert and remove a tick

[Hobsons]

I have the following macro:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True

With Target
If Not Intersect(.Cells, Me.Range("m6:m400")) Is Nothing Then
If LCase(.Value) = "P" Then
.ClearContents
Else
.Value = "P"

End If

This allows me to insert a tick with the right mouse button in column M when the font style in column M is wingdings 2. However I am unable to remove the tick with a second click of the right mouse button. Can anyone help? Also can the macro allocate the font style for that row rather than changing it manually?

[aydeegee]

Hi Hobsons

I am not familiar with BeforeRightClick, but you seem to be testing for lower case "P" whereas Winding 2 upper case "P" is a tick.

So perhaps the line does not need the LCase and therefore should read "If .Value = "P" then" ?

Let me know if this works.

Regards
Alastair

[Armando Montes]

Option:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("M6:M400")) Is Nothing Then
Target = IIf(Target = "P", "", "P")
Target.Offset(, 1).Select
End If
End Sub

[Armando Montes]

Option: