Here's the concerned code:
Private Sub selectCedarHill_Click()
Dim cName As Range
Dim cID As Range
Dim ws As Worksheet
Set ws = Worksheets("lookupData")
Me.txtDate.Value = Format(Date, "ddd, m/d/yyyy")
Me.selectCedarHill.Value = True
Me.selectDeSoto.Value = False
Me.selectLancaster.Value = False
Me.lbSelectDriver.RowSource = ""
For Each cName In ws.Range("cedarHillDriverList")
With Me.lbSelectDriver
.AddItem cName.Value
End With
Next cName
End Sub
Here's then initialize section:
Private Sub userForm_initialize()
Call selectCedarHill_Click
End Sub
The data is in the "lookupData" sheet, within the "cedarHillDriverList" range. The range is defined by:
=OFFSET(lookupData!$BD$2,0,0,COUNTA(lookupData!$BD:$BD)-1,1)
It appears to be working correctly as well.
Any ideas now?
Bob
Bookmarks