Найти в диапазоне ячейку с текстом и выполнить над ней действие

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста как корректнее написать код ниже (vba excel 2003), который позволяет найти на другом листе в диапазоне ячейку с определенным текстом и после повернуть в ней текст?
Заранее спасибо!

Dim cell as Range
For Each cell In Sheets("итог").Range("D2:V2")
If cell = "Определенный текст" Then Sheets("итог").Range(cell.Rows, cell.Columns).Orientation = 0
Next

[IgorGO]

Dim cell as Range
For Each cell In Sheets("итог").Range("D2:V2")
If cell = "Определенный текст" Then cell.Orientation = 0
Next

[rick1177]

Только не в модуль, а на лист...

Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
    If Len(cell) <> 0 Then
        If Not IsNumeric(cell) Then
            cell.Orientation = 90
        End If
    End If
Next

End Sub

Пример был такой, где диапазоне искалось значение, и если не число, то переворачивалась.

[ольгаг]

Спасибо!