Помогите с ошибкой: Run-time error '-2147352571 (80020005)'

[Besik Kajaia]

Доброго дня суток Уважаемые Знатоки.....
У меня есть таблица, в которой для заполнения я использую UzerForm,
но при вводе данных выдаёт ошибку -

Run-time error '-2147352571 (80020005)':
Could not set the Value property. Type mismatch.

Если Вас не затруднит помогите исправить ошибку.....
Заранее благодарю за помощь....

Р.s.
в макросах я новичок....

[IgorGO]

Private Sub CB_City_Change()
    If CB_City <> "" Then TB_Country = Application.VLookup(CB_City, Range("List"), 2, 0)
End Sub

[Besik Kajaia]

Всё заработало.....

ОГРОМНОЕ ВАМ СПАСИБО ЗА ПОМОЩЬ..........
РЕСПЕКТ И УВАЖЕНИЕ.......