Use merged cells as checkbox

W

W M

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?
 
D

Dave Peterson

See one reply at your first thread.

W said:
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?
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How do I put this macro on a EXCEL sheet? 1
Selection change code with merged cells 6
Color duplicates 2
Code in Excel 2000 template doesn't work in Excel 2010 1
Trying to run excel vba code when cell value changes from empty to entered value. 1
"Resizing cells" code doesn't work with merged cells 2
please help.is it possible re-edit macro to convert text like1530-2200 to time format automatically? 1
Pass variables to Worksheet_SelectionChange 3

Top