L
libby
Hi Alvin
This should work provided there aren't any gaps in your
range. If there are, you could record a macro to remove
the blanks.
You don't say if your dropdown box is on a worksheet or a
userform, but if the latter this code should be in the
userform_initate() module.
dim myCellEnd
myCellEnd= Worksheets("name").Range("A1").End _
(xlDown).Address(ROWABSOLUTE:=False)
With ComboBox1
.List = Worksheets("SHIFTS").Range("A1:" & myCellEnd)
End With
This should work provided there aren't any gaps in your
range. If there are, you could record a macro to remove
the blanks.
You don't say if your dropdown box is on a worksheet or a
userform, but if the latter this code should be in the
userform_initate() module.
dim myCellEnd
myCellEnd= Worksheets("name").Range("A1").End _
(xlDown).Address(ROWABSOLUTE:=False)
With ComboBox1
.List = Worksheets("SHIFTS").Range("A1:" & myCellEnd)
End With