Pookiemeister
Well-known Member
- Joined
- Jan 6, 2012
- Messages
- 626
- Office Version
- 365
- 2010
- Platform
- Windows
Code:
Private Sub cmbSDPFLine_Change()
Dim i As Integer
Select Case cmbSDPFLine
Case Is = "SDPF - Line 1 "
With Me.ListBox1
.Clear
.List = Sheets("1st Shift").Range("C7", Sheets("1st Shift").Range("C29").End(xlUp)).Value
For i = 0 To Me.ListBox1.ListCount - 1
Debug.Print i
Next i
End With
End Select
End Sub
Thank You