Hi all,

I am using the below code in a spreadsheet to substitute the use of checkboxes.

What I would like to do is have a second chechbox, when this checkbox is checked I would like the value of all cells in the range to be "a" and when unchecked the value in the range to be " ".

Any help available is appreciated.

Cheers

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A9:A" & Cells(Rows.Count, 1).End(xlUp).Offset(-2, 0).Row)) Is Nothing Then
     Cancel = True 'Prevent going into Edit Mode
        Target.Font.Name = "Marlett"
        If Target = vbNullString Then
           Target = "a"
        Else
           Target = vbNullString
        End If
    End If
End Sub