Embedded Select case too large?

[depcdivr]

I Have a program that a multi-tier select case where the top tier has three choices and each of the second tiers has 5 choices. The code in each of the choices is probably 50-75 lines. When I try running it I get a Compile Error : Procedure too large.

is there a limit to the amount of code that you can have in the select cases?

In order to get around this do I need to remove the 1st tier of the select case and turn it in to three separate If Statements and then run three separate Select case statements?

"example Code"

Sub xyz()
    
    Select case variable
    case is = 1
        select case variable2
        case is = A
             'Code
        Case is = B
             'Code
       Case is = C
             'Code
       Case is = D
             'Code
       Case is = E
             'Code
       end select
        'more code'
    case is = 2
        select case variable2
        case is = A
             'Code
       Case is = B
             'Code
       Case is = C
             'Code
       Case is = D
             'Code
       Case is = E
             'Code
       end select
        'more code'
    case is = 3
        select case variable2
        case is = A
             'Code
       Case is = B
             'Code
       Case is = C
             'Code
       Case is = D
             'Code
       Case is = E
             'Code
       end select
        'more code'
    end select

end sub

 

[depcdivr]

I Have a program that a multi-tier select case where the top tier has three choices and each of the second tiers has 5 choices. The code in each of the choices is probably 50-75 lines. When I try running it I get a Compile Error : Procedure too large.

is there a limit to the amount of code that you can have in the select cases?

In order to get around this do I need to remove the 1st tier of the select case and turn it in to three separate If Statements and then run three separate Select case statements?

"example Code"

Sub xyz()
   
    Select case variable
    case is = 1
        select case variable2
        case is = A
             'Code
        Case is = B
             'Code
       Case is = C
             'Code
       Case is = D
             'Code
       Case is = E
             'Code
       end select
        'more code'
    case is = 2
        select case variable2
        case is = A
             'Code
       Case is = B
             'Code
       Case is = C
             'Code
       Case is = D
             'Code
       Case is = E
             'Code
       end select
        'more code'
    case is = 3
        select case variable2
        case is = A
             'Code
       Case is = B
             'Code
       Case is = C
             'Code
       Case is = D
             'Code
       Case is = E
             'Code
       end select
        'more code'
    end select

end sub

Breaking it out into three different If Statements didn't work either. Apparently the issue is with the 2nd tier Select statement.

 

[RoryA]

There is a limit to how much code you can have in one module. It sounds to me like your code needs refactoring and/or redesigning.

 

[depcdivr]

I didn't think that I had that much code in my module. Ive had more code in other modules but I will look into reworking the procedure.