Pasikoreguok langelių vietas ir įrašyk į lapą o ne į modulį.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim R, i
  If Target.Row = 2 And Target.Column = 11 Then
    R = Target.Value
    For i = 3 To 1503
      If Cells(i, 4).Value = R Then
        Cells(i, 7).Activate
        Exit For
      End If
    Next i
  End If
End Sub

> gal kam teko daryti, kad surastu  reiksme stulpelyje.Reiksme - tai 
> astuonzenklis skaicius pvz.: 25810345. Tu reiksmiu stulpelyje apie 1500.Per 
> find netinka, reikia greitesnio budo, tipo  i langeli irasomas "paieskomas" 
> skaicius, spaudziam enter ar koki "buton" ir "active cell" atsiranda ties 
> ieskoma reiksme.
> Aciu uz mintis.... 
> 
>