Macro Stops at search

[imogul]

I wrote a macro that stores 2 values from one sheet then in another open worksheet it's supposed to search for one variable then enter the other. But when it gets to the part of the macro where it searches for the right cell it just stops. It doesn't run the search at all and I get no error message. Here's my code, can anyone tell me what I'm missing?

PS I use the sendkeys application because the names of the reports I use change everytime.

Range("A2").Select

ii = ActiveCell.Value

nn = ActiveCell.Offset(0, 10).Value

Application.SendKeys ("^{TAB}")

Range("A1").Activate

Cells.Find(What:=ii, After:=ActiveCell, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Cells.Activate
        
ActiveCell.Offset(0, 9).Value = nn
 
End Sub

Thanks