vba for combox and select the switch case

[Azhar0554]

Hi Guys,

I have a function on Module.I'm planning to have a ActiveX combobox on sheet 1 with a list of values(ie : 1-1s etc) when the user selects any value that should trigger/invoke a function below is my code.



Private Sub ComboBox1_Change()




Set comboVal = ??



Select Case comboVal.Value


Case "1-1s"
Call scenario1
Case "2-1s"
Call scenario2
Case "3-1s"
Call scenario3
Case "6-2s"
Call scenario4
End Select
End Sub

 

[AlphaFrog]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] ComboBox1_Change()
    [color=darkblue]Select[/color] [color=darkblue]Case[/color] [B]ComboBox1.Value[/B]
        [color=darkblue]Case[/color] "1-1s"
            [color=darkblue]Call[/color] scenario1
        [color=darkblue]Case[/color] "2-1s"
            [color=darkblue]Call[/color] scenario2
        [color=darkblue]Case[/color] "3-1s"
            [color=darkblue]Call[/color] scenario3
        [color=darkblue]Case[/color] "6-2s"
            [color=darkblue]Call[/color] scenario4
    [color=darkblue]End[/color] [color=darkblue]Select[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[Azhar0554]

Thank you

Will this call function available in Module