Determine If CheckBox Is TRUE/Checked Or FALSE/Un-Checked

code below whould return value "a" to specified range(s) The cells are formatted Marlett, 10pt, black, bold, center. Should return a nice tick mark to the specified range if selected shape has value of 1. I double chk'd the name of the shape referred to in code and it is correct Yet value of "a" is not returned, though the chkBox is "ticked". What else can I check?

Option Explicit
Sub cv_ReviewCheckBoxes()
Dim wbBook As Workbook
Dim wsNotesLoose As Worksheet
Dim wsCoinRolled As Worksheet
Dim wsCoinLoose As Worksheet
Dim wsSummary As Worksheet
With Application
.Calculation = xlCalculationManual
.DisplayAlerts = False
. ScreenUpdating = False
End With.........................