Compile Error with ComboBox

[bostonhero99]

I am trying to format 2 combo boxes embedded in an excel sheet. Based off of what the first combobox changes to, the second box list will change accordingly. When I open the workbook on a new computer, I get the error: "Compile error: Method or data member not found" The combobox name is has a problem with is called "ServiceType".

Sub ComboBox1_Change()
Range("H16:L19").Clear
Application.ScreenUpdating = False
Sheets("Sheet2").Visible = True

If Me.ComboBox1.Value = "Select Field" Then
    
    Dim slct(1 To 1) As Variant
    slct(1) = "Select Service"
    On Error Resume Next
    
    
    Me.ServiceType.List = slct '******* error here and every other occurence
    Me.ServiceType.ListIndex = 0
    Sheets("Sheet2").Visible = False
    Exit Sub
    
    
ElseIf Me.ComboBox1.Value = "Cat1" Then
    Dim drlg() As Variant
    drlg = Worksheets("Sheet2").Range("C2:C29").Value
    Me.ServiceType.Clear
    Me.ServiceType.List = drlg
    Me.ServiceType.ListIndex = 0
    
    
ElseIf Me.ComboBox1.Value = "Cat2" Then
    Dim compl() As Variant
    compl = Worksheets("Sheet2").Range("D2:D28").Value
    Me.ServiceType.Clear
    Me.ServiceType.List = compl
    Me.ServiceType.ListIndex = 0
    
    
ElseIf Me.ComboBox1.Value = "Cat3" Then
    Dim fac() As Variant
    fac = Worksheets("Sheet2").Range("E2:E41").Value
    Me.ServiceType.Clear
    Me.ServiceType.List = fac
    Me.ServiceType.ListIndex = 0
    
    
ElseIf Me.ComboBox1.Value = "Cat4" Then
    Dim prod() As Variant
    prod = Worksheets("Sheet2").Range("F2:F64").Value
    Me.ServiceType.Clear
    Me.ServiceType.List = prod
    Me.ServiceType.ListIndex = 0
    
    
ElseIf Me.ComboBox1.Value = "Cat5" Then
    Dim saf() As Variant
    saf = Worksheets("Sheet2").Range("G2:G20").Value
    Me.ServiceType.Clear
    Me.ServiceType.List = saf
    Me.ServiceType.ListIndex = 0
    
    
ElseIf Me.ComboBox1.Value = "Cat6" Then
    Dim mid() As Variant
    mid = Worksheets("Sheet2").Range("H2:H5").Value
    Me.ServiceType.Clear
    Me.ServiceType.List = mid
    Me.ServiceType.ListIndex = 0
    
    
ElseIf Me.ComboBox1.Value = "Cat7" Then
    Dim msp(1 To 1) As Variant
    msp(1) = Worksheets("Sheet2").Range("I2").Value
    Me.ServiceType.Clear
    Me.ServiceType.List = msp
    Me.ServiceType.ListIndex = 0
    


    
ElseIf Me.ComboBox1.Value = "Other" Then
    Range("H16").Value = "Other:"
    Range("H16").HorizontalAlignment = xlRight
    Range("I16:L16").Merge
    Range("I16:L16").HorizontalAlignment = xlCenter
    Range("I16:L16").VerticalAlignment = xlCenter
    Range("I16:L16").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Dim otr(1 To 1) As Variant
    otr(1) = "Other"
    Me.ServiceType.Clear
    Me.ServiceType.List = otr
    Me.ServiceType.ListIndex = 0
    
    
    Range("H19").Value = "Other:"
    Range("H19").HorizontalAlignment = xlRight
    Range("I19:L19").Merge
    Range("I19:L19").HorizontalAlignment = xlCenter
    Range("I19:L19").VerticalAlignment = xlCenter
    Range("I19:L19").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
End If
Me.Range("C16").Value = Me.ComboBox1.Value
Me.Range("C19").Value = Me.ServiceType.Value

End Sub

[Kenneth Hobs]

Welcome to the forum!

Might be easier to help if you attach a simple example file. Click Go Advanced button in lower right of a reply. Then click the paperclip icon in toolbar or Manage Attachments button below reply box.

Please paste code between code tags. Click # icon on toolbar to insert the tags. That stops smilies from replacing code.

Could be that Me is not what you think it is. Or, could be that combobox does not have a List property.