Double click to insert character on merged cells

[satheo]

I have this to allow for double-clicking on a defined group of cells (name manager list: "DoubleClick1") and mark/unmark them with an "X"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    
    If Not Intersect(Target, Range("DoubleClick1")) Is Nothing Then
        If Target.Value <> "X" Then 
            Target.Value = "X"
            Cancel = True
            Exit Sub
        End If
        If Target.Value = "X" Then 
            Target.ClearContents
            Cancel = True
            Exit Sub
        End If
    End If
End Sub

However I would also like to have this functionality for some merged cells, but not sure how to make that work. Any ideas?

 

[Rick Rothstein]

The following BeforeDoubleClick event replacement for the code you posted will work for regular cells and merged cells...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("DoubleClick1")) Is Nothing Then
    Target.Value = Mid("X", 1 - (Target(1).Value = "X"))
    Cancel = True
  End If
End Sub