Click Shape to return TRUE value, Double Click to return FALSE value

I am looking to click a shape and return a TRUE value in different cell. When I click the shape for a second time I am looking to return a FALSE value. (I tried a checkbox and they stacked when they were hidden). I can get the TRUE value for one click. However, I am unsure to add in the second click or double click option. Any help is greatly appreciated

Sub Info1_Click()
Application.ScreenUpdating = False
Range("D5").Value = "TRUE"
Application.ScreenUpdating = True
End Sub

Thanks for this. Sorry but I am new to VBA and I have no idea what to put in after Dim. What should be substituted for the X?
I have tried this but it doesn't like it.

Sorry if this is an daft question.

Sub Tick1_Click()
Dim Tick1_Click()
Tick1_Click() = IIf(Range("D5") = True, False, True)
Range("D5").Value = "TRUE"
End Sub

You are a legend! The 1 liner worked! Thanks very much.