Private Sub
Range("D4").Select
ActiveWindow.
Range("D4").Select
ActiveCell.FormulaR1C1 = "1142"
Cells.Find(What:="1142", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True _
, SearchFormat:=False).Activate
End Sub

В ячейке D4, вбивается номер который необходимо найти на листе- у меня поиск делает только одного значения 1142,как правильно переписать что бы поиск шел того номера, который вбит в ячейке D4.
Посмотрите файлик. Помогите-оч.сильно надо. Заранее большое спасибо.

2:DragonDragon
Спасибо огромное