Stop
Dim i
i = Sheets("shtraf").Range("A2:F10").Value
  For i = 2 To 10
  [color=green]If Cells(i, 1) = TextBox2 Then[/color]

With Wd.Range.Find
    .Execute FindText:="#штраф1", ReplaceWith:=Cells(i, 3), Replace:=2
    .Execute FindText:="#штраф2", ReplaceWith:=Cells(i, 4), Replace:=2
    .Execute FindText:="#штраф3", ReplaceWith:=Cells(i, 5), Replace:=2
    .Execute FindText:="#штраф4", ReplaceWith:=Cells(i, 6), Replace:=2
End With
End If
Next i

 If Cells(i, 1) = TextBox2.Text Then