Error 91 en tiempo de ejecución. Variable de objeto o bloque With no establecido

Tengo una macro en Excel y al ejecutarla me da el error 91. Es la siguiente (en negrita la línea que se resalta al depurar).

En otra hoja del libro tengo exactamente el mismo código y no falla.

Private Sub ListBox1_Click()

Range("a3").Activate

Cuenta = Me.ListBox1.ListCount
Set Rango = Range("a2").CurrentRegion
For i = 0 To Cuenta - 1
If Me.ListBox1.Selected(i) Then
Valor = Me.ListBox1.List(i)
Rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate
End If

Muchas gracias.
Next i

End Sub