USER FORM ISSUES: Clear data from various ranges using checkboxes and other issues.

[MrBlackd]

Now I have another stupid question I have extended the code to

        For i = 13 To 24
            If Me("Checkbox" & i) Then Sheets("Schedule").Range(Choose(i, "sep_pay", "oct_pay", "nov_pay", "dec_pay", _
                "jan_pay", "feb_pay", "mar_pay", "apr_pay", "may_pay", "jun_pay", "jul_pay", "aug_pay")).ClearContents
        Next

so as to clear the respective ranges of the payment status per month to but it gets stuck on

Sheets("Schedule").Range(Choose(i, "sep_pay", "oct_pay", "nov_pay", "dec_pay", _
                "jan_pay", "feb_pay", "mar_pay", "apr_pay", "may_pay", "jun_pay", "jul_pay", "aug_pay")).ClearContents

what went wrong?? I mean it worked great with the monthly ranges that contain the names of students, it should similarly work on payment status monthly ranges. No?