Thanks George I'll try it

I tried the below myself and it seems to be a start as well
Private Sub ComboBox1_DropButtonClick(
Dim n As Intege
ComboBox1.Clea
For n = 7 To 99
If IsEmpty(Sheet2.Cells(7, n)) = True The
Exit Su
End I
ComboBox1.AddItem (Sheet2.Cells(7, n)
Next
End Su

Thanks again
New User