'Unchecked' Checkbox

[davesplace80]

This one should be pretty simple.
I have the following code:

Private Sub Wilmington_Click()
Sheets("Approval Form").Range("A33").Value = "Wilm"
End Sub

But I want something more like this

Private Sub Wilmington_Click()

If checked
Sheets("Approval Form").Range("A33").Value = "Wilm"

else
Sheets("Approval Form").Range("A33").Value = ""
End Sub

 

[Andrew Poulsom]

Try:

Private Sub Wilmington_Click() 
   If Wilmington = True Then 
      Sheets("Approval Form").Range("A33").Value = "Wilm" 
   Else 
      Sheets("Approval Form").Range("A33").Value = "" 
   End If
End Sub

 

[davesplace80]

Perfect, Thanks!