Append a variable in a variable select case method

[prinzip]

I want the select case list of a ComboBox to be treated as a variable in order to shorten the code size. To clarify the problem, i post the code with what i want to do, but don't know how to do it that way.

    Select Case ComboBox1.ListIndex

        Case 0:     y = "\AT"
        
        For j = 0 To 26
        
        Case "j":   y = sheets("name").Range("A(j)") 'Range A(j) is a string, so y as well, as seen in Case 0.
        
        Next j

    End Select

Is something like this possible?

 

[diddi]

sort of like this?

Select Case ComboBox1.ListIndex

        Case 0:     y = "\AT"
        
        Case 1 to 26
        
             y = sheets("name").Range("A" & ComboBox1.ListIndex)) 
        
End Select

 

[prinzip]

sort of like this?

Select Case ComboBox1.ListIndex

        Case 0:     y = "\AT"
        
        Case 1 to 26
        
             y = sheets("name").Range("A" & ComboBox1.ListIndex)) 
        
End Select

Thx diddi, exactly what i wanted.

 

[diddi]

no probs. too easy