Issue ComboBox change event

Hi -

So attached is the workbook I'm using to develop a User Form that displays different results based on a selection from a Combobox. Though I have not completed all of the cases in my 'Select Case' procedure, the code I have does seem to work as intended when I make a single selection from the Combobox. However, when I make another selection from the ComboBox, the codes doesn't seem to fire. Give it a try by running the user form and choosing any of the first three selections (i.e., GCBlack18, GCBlackF9 or GCBlackB9) and I think you will see what I mean.

This is what I need to have happen:

The user wants to view the details of a particular course. As an example, let say he selects GCBlack18 from the combobox. Result: the yardage values, the par values and the handicap values appear. But then lets assume the user decides he just wants to see the the details associated with the front nine. Ahhh, here something changes; while the yardage and par values remain the same, the handicap values change. Likewise, if the user then opts to view the details of the back nine only, again yardage and par values remain the same but the handicap values change. Because I have five different tee boxes with different yardages, I am creating the Select Case statements. So far in the attached workbook I have only finished the Case statements for the Black tees (i.e., case GCBlack18, GCBlackF9 and GCBlackB9). I need to make this form diplay whatever results the user desires by simply making new selections from the dropdown list in the combobox.

Thanks,

Grilleman

Option Explicit
Private Sub UserForm_Initialize()
    Dim COURSEDATA As Worksheet
    Set COURSEDATA = Worksheets("CourseData")
    Me.comboboxCourseSelection.List = COURSEDATA.Range("CourseSelection").Value
End Sub

Private Sub comboboxCourseSelection_Change()
    Dim COURSEDATA          As Worksheet
    Dim CourseSelection     As String
    Dim GCBlack18           As String
    Dim GCBlackF9           As String
    Dim GCBlackB9           As String
    Dim GCBronze18          As String
    Dim GCBronzeF9          As String
    Dim GCBronzeB9          As String
    Dim GCGold18            As String
    Dim GCGoldF9            As String
    Dim GCGoldB9            As String
    Dim GCGreen18           As String
    Dim GCGreenF9           As String
    Dim GCGreenB9           As String
    Dim GCSilver18          As String
    Dim GCSilverF9          As String
    Dim GCSilverB9          As String
    Dim ColPtr              As Long
    Dim Suffix              As Variant
    Dim CourseSelectionRow  As Long
    Const YDS = 4           'YARDAGE
    Const PAR = 25          'PAR
    Const MH18H = 46        'MEN'S HANDICAPS - 18 HOLES
    Const MHFR9 = 64        'MEN'S HANDICAPS - FRONT 9
    Const MNBK9 = 73        'MEN'S HANDICAPS - BACK 9
    Const WH18H = 82        'WOMEN'S HANDICAPS - 18 HOLES
    Const WHFR9 = 99        'WOMEN'S HANDICAPS - FRONT 9
    Const WHBK9 = 8         'WOMEN'S HANDICAPS - BACK 9

    Set COURSEDATA = Worksheets("CourseData")
    CourseSelectionRow = frmEditExistingCourse.comboboxCourseSelection.ListIndex + 3
    [A1] = CourseSelectionRow
    CourseSelection = frmEditExistingCourse.comboboxCourseSelection.Value

    ColPtr = 0
    For Each Suffix In Array(1, 2, 3, 4, 5, 6, 7, 8, 9, "OUT", 10, 11, 12, 13, 14, 15, 16, 17, 18, "IN", "TOTAL")
        ColPtr = ColPtr + 1
        Me.Controls("TextBoxYardage" & Suffix).Value = COURSEDATA.Cells(CourseSelectionRow, ColPtr + YDS).Value
        Me.Controls("TextBoxPar" & Suffix).Value = COURSEDATA.Cells(CourseSelectionRow, ColPtr + PAR).Value
        
        If ColPtr <= 18 Then
            Me.Controls("TextBoxHandicap" & ColPtr).Value = COURSEDATA.Cells(CourseSelectionRow, ColPtr + MH18H).Value
        End If
    Next Suffix
End Sub