Help With Form

[Emoncada]

I have two CmbBox that need to work I believe as a Case.

Example
If CmbBoxModel.value = "2811" then (CmbBoxSN should be populated with a list from the "2811" Worksheet Range ("B3:End of List")

If CmbBoxModel.Value = "3560" then (CmbBoxSN should be populated with a list from the "3560" Worksheet Range ("B3:End of List")

Can this be done?

[Bob Phillips]

Private Sub CmbBoxModel_Change()
Dim sh As Worksheet
With Me.CmbBoxModel
Me.CmbBoxSN.Clear
Select Case .Value
Case 2811:
Set sh = Worksheets("2811")
Me.CmbBoxSN.List = Application.Transpose(Range(sh.Range("B3"), sh.Range("B3").End(xlDown)))
Case 3560:
Set sh = Worksheets("3560")
Me.CmbBoxSN.List = Application.Transpose(Range(sh.Range("B3"), sh.Range("B3").End(xlDown)))
End Select
End With
End Sub

[Emoncada]

That looks Good XLD.

Thanks for your help