If you allow row m2 for your checkmarks, use this code variation. To check a
column, just select any of C2:V2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("C2:V2")) Then
With Target
Range("C2:V2").Clear
If .Value = "a" Then
.Value = ""
.Font.Name = "Arial"
.Offset(0, 1).Value = ""
Else
.Value = "a"
.Font.Name = "Marlett"
End If
End If
End With
End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"jlong " wrote in message
...
I can't seem to get that to work, my range of cells are C3:V23 in which
only one checkbox of each column can be selected. The cells in each
column that contain the checked boxes are to get a value of "x" and the
rest must be empty.
This seems like it should be easy but it's not working for me.


---
Message posted from http://www.ExcelForum.com/