огромное спасибо)!!! пушка))
короткий вопрос) а если мне нужно на листе таким образом заливать несколько диапазонов)
как мне в одном макросе указать несколько диапазонов для заливки и диапазон где выбирать цвет заливки.  спасибо

тут типа залить это  For Each c In [f1:m1]  
цвет выбрать тут For r = 1 To 8

а нужно еще
залить это  For Each c In [f50:m50]
цвет брать тут   For r = 1 To 14  (подразумеваем f51 52 53 и так до 51+14)
что бы это все работало в одном макросе, попробовал тупо скопировать в один лист макроса, поменял диапазону) говорит ошибка типа синтаксиса)


+ еще бы хотелось,  что бы макрос отрабатывал при сохранении книги  и\или при ее открытии.  спасибо)  

всем привет
Хелп)
в приложенном файле, есть столбец и заголовок столбца строка 1 в данном случае
Ячейку F1 закрасить цветом из диапазона F2:F9 (может быть не 9 а 15 или 20,
в данном диапазоне цвет будет один (всегда закрашена или одна или не одной= пусто).

заранее благодарен!