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

-----Original Message-----
Hi
I have a dropdownboks there takes the vakue from
$a$1:$a$12
but some times there are 4 values sometimes 10 an so on
but in my dropdownboks I have all the values also the
lines there are emty
Can't I not tell the dropdownboks only to takes the rows
in $a$1:$a$12 where
there are values in

best regards

Alvin

.