ComboBox list missing

[ipbr21054]

Hi,

I have copied a code from one worksheet to another as i would like to use the same but on another sheet.
The code is shown below & i have changed the cell ref to B7 & onwards.
My problem is that there are no names in the drop down list.
I go back & check the sheet i copied it from & that works great.

Not sure why they are not shown,would other codes on that sheet kill it etc ?

Thanks

Private Sub ComboBox1_Change()  Dim r As Range
  Set r = Range("B7", Range("B" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible) _
    .Find(ComboBox1.Value)
  If Not r Is Nothing Then r.Select
  ComboBox1.ListIndex = -1
End Sub

 

[Norie]

There is nothing in that code that will populate a combobox, as far as I can see that code is meant to search a range in column B for the value the user has selected in the combobox.

How is the combobox on the other worksheet being populated?

 

[ipbr21054]

Ok
Then that would explain why the list isnt there.

Im doing a combobox with a list of the names in colomn B
When i select the nname i am taken to that row etc in question..
Thanks