'FOR NEXT
    For f = 1 To zadnjiRed
        If Cells(f, 1) = traziString Then
            nadeniRed = f
            Exit for
        End If
    Next f