I'm getting error '91' after Cells.find command. Please help, thank you.

Run-time error '91'
Object variable or With block variable not set

Please find a example below:

PHP Code: 
Sub teste() 

Dim mes As Integer 
Dim ano As Integer 
Dim pais As String 
      
mes = Application.InputBox(Prompt:="Digite o número do mês que esteja com todos os dias completos (ex:2 para Favereiro)", Title:="Mês", Type:=1) 
ano = Application.InputBox(Prompt:="Digite o ano (Menor anos possível: 2012)", Title:="Ano", Type:=1) 
pais = Application.InputBox(Prompt:="Digite o país (ex: Brazil)", Title:="País", Type:=2) 

Cells.Find(What:=pais, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
        False, SearchFormat:=False).Activate 


EndSub