Macro to add a tick to a cell if clicked and remove it if clicked again

[tonywatsonhelp]

HI Everyone,

I have a rangge of G10:G10000

I want to add in a tick to the cell clicked if it is empty and empty the cell if it contains a tick
I say Tick but i'll be using the letter "a" so its is the cell contains "a"

now i'd ike it to also unselect the cell that was clicked on?
if possible have it so you click the cell and it ticks it and unselects it, if this is not posible have it select the cell in the column next to it

please help if you can

Thanks

Tony

 

[Fluff]

How about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Intersect(Target, Range("G10:G10000")) Is Nothing Then
      Target.Value = IIf(Target = "a", "", "a")
      Cancel = True
   End If
End Sub

 

[tonywatsonhelp]

Thank you fluff,
this looks perfect

Tony

 

[Fluff]

You're welcome & thanks for the feedback.