А, через запятую. Спасибо, большое. Просто я начал заниматься макросом 2 дня назад. Вообще я конструктор мебели.

Отлично. Чтобы это распространить на другие ячейки на этом листе, надо повторить "If Not Intersect(Target, Range("?:?")) Is Nothing Then        Target.Font.ColorIndex = xlAutomatic"? Просто на листе несколько таблиц. Или по другому?

Отредактировал файл. Цвет меняется. Но хотелось чтобы при выборе в ячейке. цвет шрифта снова становился как был.

Спасибо, разобрался.

Спасибо. Просто боялся так сделать. И еще, может не по теме, вставка текста не копированием, а просто текстом.

Все, которые очищаются кнопкой.

Тема превращается в правила создания никнейма.

Господа, этим ником (vir2oz) я пользуюсь больше 20 лет, любой англичанин его читает сходу. Я поменяю первый раз в жизни.

Без разницы. Я потом поменяю.

Я конечно поменяю, но в профиле нет строчки отображаемое имя.

Поменять цвет шрифта макросом

Здравствуйте. Создал кнопку для очистки и замены значения в ячейке. Нужно чтобы цвет текста нового значения менялся.