Toggle text between cells

[gasdude]

This is my first ever post.

I have a spreadsheet that has a lot of check boxes in sets of two. When printed it is hard to tell what is checked. I have redone the sheet and replaced the check boxes with empty cells. I also have a VBA code that will enter a check mark when a cell is double clicked. Is it possible to make excel toggle between two cells when one is double clicked or delete the check mark in the other cell when the other is double clicked? Act like a check box. Below is the VBA code i am currently using.

Thanks in advance. This site has been a saving grace for me many times.
Gasdude

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A17:A30, B17:B30, K17:K18, K20:K30, L17:L18, L20:L30, AF20:AF21, AF34:AF35")) Is Nothing Then
Application.EnableEvents = False
If ActiveCell.Value = ChrW(&H2713) Then
ActiveCell.ClearContents
Else
ActiveCell.Value = ChrW(&H2713)
End If
Cancel = True
End If
Application.EnableEvents = True
End Sub

 

[Logit]

.
The best thing is to avoid Merged Cells. They only lead to more frustrations down the road.

 

[gasdude]

None of the cells that i'm working with are merged

 

[Fluff]

Hi & welcome to MrExcel.
What are the cells that you want to toggle?

 

[gasdude]

A17 B17, A18 B18, etc. I know this may be a log process to set them all up. Would be well worth it to me.

Thanks

 

[Fluff]

How about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim Offst As Long
   If Not Intersect(Target, Range("A17:A30, B17:B30, K17:K18, K20:K30, L17:L18, L20:L30")) Is Nothing Then
      Application.EnableEvents = False
      Select Case Target.Column
         Case 1, 11
            Offst = 1
         Case 2, 12
            Offst = -1
      End Select
      If Target.Value = ChrW(&H2713) Then
         Target.Offset(, Offst).Value = Target.Value
         Target.ClearContents
      Else
         Target.Offset(, Offst).Value = Target.Value
         Target.Value = ChrW(&H2713)
      End If
      Cancel = True
   End If
   Application.EnableEvents = True
End Sub