Case inside a Case throws error 424

Hey guys, just a quick question regarding error 424, object required.

I have a module, which upon loading, needs to populate several text boxes, check boxes and drop-down lists based on information in a sheet. Once a row is selected, and the module is chosen, it loads. Well, here is the Initialize info:

Private Sub UserForm_Initialize()
For Each Number In ActiveWorkbook.Worksheets("ClientDatabase").Range("A" & PKRow, "CS" & PKRow)
    Select Case Number.Column
        Case "1"
           'CODE
       'CASES #2-97 with CODE in each to change value of checkboxes and others
        Case "98"
            Select Case Number.Value
                Case "1" Or "01"
                    OptionButton36.Value = True
                Case "2" Or "02"
                    OptionButton35.Value = True
                Case Number.Value.Length < 1
                    OptionButton35.Value = Null And OptionButton36.Value = Null
            End Select
    End Select
Next Number
End Sub

The problem lies in when I comment out the code below Case "98" the program runs just fine, however when it is uncommented I run into an error 424 and it claims that the module doesn't exist. Perhaps there is a much better way this could be done, but any insight is much appreciated!

Thanks,
Jon