Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim isAnjing As Boolean
Select Case ActiveSheet.CheckBoxes("CheckAnjing").Value
Case 1: isAnjing = True
Case -4146: isAnjing = False
End Select
lbl_Exit:
Exit Sub
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/