Developing.ru

Sub [B]СложнейшаяПрога[/B]()
    For Each cell In Selection: cell.Interior.ColorIndex = IIf(cell = StrReverse(cell) And cell <> "", 4, 0): Next
End Sub

В [b]Visual Basic[/b] нет "селекшенов"...

Может, всё-таки, тебе нужна прога на [b]VBA Excel[/b] (а под "селекшеном" подразумевается выделенный диапазон ячеек):
[code]Sub [B]СложнейшаяПрога[/B]()
For Each cell In Selection: cell.Interior.ColorIndex = IIf(cell = StrReverse(cell) And cell <> "", 4, 0): Next
End Sub[/code]

помогите пожалуйста!!!
нужна прога на Visual Basic :
в селекшене найти палиндромы и выделить их цветом