Type mismatch - VB

Формулировка задачи:

Добрый день, понимаю что вопрос избитый но подскажите что не так
На строке IxlAPP.Selection выходит данная ошибка

IxlAPP.Rows("3:3").Select
    IxlAPP.Selection.Find(What:="ßíâàðü ôàêò", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    adr = IxlAPP.ActiveCell.Address

Решение задачи: «Type mismatch»

textual
                            Листинг программы 
                        
                            Dim sel As Range
    Set sel = IxlAPP.Selection
    IxlAPP.Rows("3:3").Find(What:="Январь").Activate