Drop-Down List - Then goto cell

This seemed to work
I created a combo box that drops down a selection... and used the below code.....

Sub ROJumper()
    Select Case UCase(Range("E4"))
    Case "1": Range("$A$05").Select
    Case "2": Range("$A$32").Select
    Case "3": Range("$A$46").Select
    Case "4": Range("$A$60").Select
    Case "5": Range("$A$74").Select
    Case "6": Range("$A$75").Select
    Case "7": Range("$A$89").Select
    Case "8": Range("$A$103").Select
    Case "9": Range("$A$117").Select
    Case "10": Range("$A$131").Select
    Case "11": Range("$A$145").Select
    Case "12": Range("$A$159").Select
    Case "13": Range("$A$173").Select
    Case "14": Range("$A$187").Select
    Case "15": Range("$A$201").Select
    End Select
End Sub

The 1-15 tags can be labled any way you wish via your combobox defined list.....
When selected it will add a 1-15 into a cell of your choosing....