Use merged cells as checkbox
 

Bob Phillips provided a statement that allows a cell to be used as a
checkbox as follows:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("A1,A2")) Is Nothing Then
With Target
If .Value = "P" Then
.Value = ""
Else
.Value = "P"
.Font.Name = "Wingdings 2"
End If
End With
End If
sub_exit:
Application.EnableEvents = True
End Sub

Can this statement be modified to allow merged cells to be used as
checkboxes?

See one reply at your first thread.

W M wrote:

Bob Phillips provided a statement that allows a cell to be used as a
checkbox as follows:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("A1,A2")) Is Nothing Then
With Target
If .Value = "P" Then
.Value = ""
Else
.Value = "P"
.Font.Name = "Wingdings 2"
End If
End With
End If
sub_exit:
Application.EnableEvents = True
End Sub

Can this statement be modified to allow merged cells to be used as
checkboxes?

--

Dave Peterson