Quantcast
Channel: Excel Help Forum - Excel Programming / VBA / Macros
Viewing all articles
Browse latest Browse all 50162

Case inside a Case throws error 424

$
0
0
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:

Code:

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

Viewing all articles
Browse latest Browse all 50162

Trending Articles