ListFillRange hvis

Hej

Jeg er inspireret af en kode Holger Bak har lagt ud.

Jeg kunne godt tænke mig at bruge det med lidt tilretninger.

Jeg har 2 Comboboxe.
Combobox2 (Delivery_Method)
Combobox3 (Delivery_Term)
Jeg vil gerne have at Combobox3 henter 2 forskellige ranges efter valget i combobox2.
If combobox2=stock (linkedCell C9) Then

combobox3.ListFillRange="Delivery_term_stock"

Else

combobox3.ListFillRange="Delivery_term"

Her er Holgers kode der peger på nogle buttons.Jeg kan ikke finde ud at at tilrette den til mit behov.

Private Sub ComboBox1_GotFocus()
If OptCool Then
CoolNavn
        Me.ComboBox1.ListFillRange = "Cool"
        Me.ComboBox1.LinkedCell = "A1"
        Else
        HeatNavn
        Me.ComboBox1.ListFillRange = "Heat"
        Me.ComboBox1.LinkedCell = "A2"
    End If

End Sub
Public Sub CoolNavn()
ActiveWorkbook.Names.Add Name:="Cool", RefersTo:="=Ark1!" & Range(Range("C2"), Range("C65536").End(xlUp)).Address
End Sub
Public Sub HeatNavn()
ActiveWorkbook.Names.Add Name:="Heat", RefersTo:="=Ark1!" & Range(Range("D2"), Range("D65536").End(xlUp)).Address
End Sub

Mvh

Keld