Dim Flag As Boolean
Sub Button4_Click()
Flag = Not Flag
End Sub
Sub CheckBox3_Click()
If Flag Then
ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = ""
Else
Rem other checkbox click action
End If
End Sub