Run Time Error 424:Object Required

[ewalton87]

I am not very familiar with how macros work and every time I run this macro I get the run-time error. I am completely lost in how to fix the macro to make it work.

The part that I am having problems with is the section that begins with, "If CheckBox1.Object=FALSE". I am unable to get past this line in the macro. Any help would be greatly appreciated.

Sub Step_3_AY72()
'
' Step_3_AY72 Macro
'
    Dim YR As String
    YR = Range("C24")

    Dim DT As String
    DT = Range("C27")

    Dim MNTH As String
    MNTH = Range("D23")

For Each wb In Workbooks
    If wb.Name = "Top100gen2start.xls" Then
        MsgBox "You need to close the Top100gen2start.xls file before proceeding.", , "Close Top100gen2start.xls file"
        Exit Sub
    End If
Next

If CheckBox1.Object = False And CheckBox2.Object = False And CheckBox3.Object = False And CheckBox4.Object = False And CheckBox5.Object = False Then[/COLOR][/COLOR]
    MsgBox "You didn't select a sector report to run!", , "Select a sector report"
    Exit Sub
End If

If CheckBox1.Object = True Then
    Call FullBlown
    If gameover = 1 Then
        Exit Sub
    End If

End If

If Top100Check = 1 Then
    Exit Sub
End If

If CheckBox2.Object = True Then
    Call Short
    If gameover = 1 Then
        Exit Sub
    End If
End If

If Top100Check = 1 Then
    Exit Sub
End If

If CheckBox3.Object = True Then
    Call Intermediate_4_to_7
    If gameover = 1 Then
        Exit Sub
    End If
End If

If Top100Check = 1 Then
    Exit Sub
End If

If CheckBox5.Object = True Then
    Call Intermediate_7_to_9
    If gameover = 1 Then
        Exit Sub
    End If
End If

If Top100Check = 1 Then
    Exit Sub
End If

If CheckBox4.Object = True Then
    Call Long9
    If gameover = 1 Then
        Exit Sub
    End If
End If

If Top100Check = 1 Then
    Exit Sub
End If

End Sub

[Mordred]

I don't know if this is the answer but trying declaring MNTH, YR, & DT as Variant instead of String.