mismatch error

hi i´m working in a code that gives you a value in a combobox depending on another combobox, but when i run it it gaves me a mismatech type of error, what do i need to change in my code ? or i can´t do what i want?

Do While N°3.Value <> " "

dcp = N°3.Value
rownumber = WorksheetFunction.Match(dcp, npp, 0)
Set Rangeppp = Sheets("BD").Range("D:D")
pp1 = WorksheetFunction.Match(dcp, Rangeppp, 0)
cinema = Sheets("BD").Range("F" & pp1).Value
colum = WorksheetFunction.Match(cinema, "J" & "rownumber:rownumber" & "O", 0)
DESTINO.Clear
refref = Sheets("Lista").Range(rownumber, colum).Select
ActiveCell.Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)
DESTINO.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
Loop

Please Login or Register  to view this content.