To snag a snippet of code from here:
http://www.cpearson.com/excel/named.htm
You can do this:
Function NameOfParentRange(Rng As Range) As String
Dim Nm As Name
For Each Nm In ThisWorkbook.Names
If Rng.Parent.Name = Nm.RefersToRange.Parent.Name Then
If Not Application.Intersect(Rng, Nm.RefersToRange) Is Nothing Then
NameOfParentRange = Nm.Name
Exit Function
End If
End If
Next Nm
NameOfParentRange = ""
End Function
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, 1).Value = NameOfParentRange(Target)
End Sub
Change it to set the value of your checkboxes instead of the cell(1,1)'s value.
Bookmarks