check box to lock cells, date stamp and hide itself after checking

This for the controls checkbox

Private Sub CheckBox1_Click()

    If Me.CheckBox1 = True Then

        With Me
            .Unprotect

            .Range("E7:E13").Locked = True
            .Range("I13") = Now

            CheckBox1.Visible = False

            .Protect

        End With

    Else
        'don't?

    End If

End Sub