Datos en combobox con doble columna

buenas expertos yo estoy usando excel 2007 y 2010 con sp1, intento mostrar los datos de una hoja en un combobox mediante este código

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("CODIGOS").Select
With ComCoH
 .ColumnHeads = True
 .ColumnCount = 2
 .ListWidth = 210
 .ColumnWidths = "30;180"
 .ListFillRange = Range("B5:C30" & Range("B" & Rows.Count).End(xlUp).Row).Address
End With
Sheets("BASE DE DATOS").Select
End Sub

los datos a mostrar en el combobox que esta en la hoja de BASE DE DATOS esta en la hoja CÓDIGOS el asunto es que no me produce ningún error de depuración pero tampoco me muestra los datos