Проверка ячеек таблицы на корректность

[SAS888]

Если соблюдать синтаксис VBA, то все будет работать. Вместо

For Each cell In Intersect(ActiveSheet.Range, [f], Rows("4:" & Rows.Count))

нужно так:

For Each cell In Intersect(ActiveSheet.UsedRange, [F:F], Rows("4:" & Rows.Count))

[Ilya_L]

и еще, как раньше вы отметили про пробелы, нужно и их привязать..
Т.е. чтобы он не обращал внимание на то, что в конце слова стоит пробел...Сейчас он работает, если в конце слова стоит пробел, то он считает это за ошибку, а нужно, чтобы он считал это слово правильным. Код будет таким?

If Replace(LCase(cell), " ", "") Like "*[!а-я]*" Then cell.EntireRow.Interior.ColorIndex = 6

[SAS888]

используйте функцию Trim(...). А еще лучше, функцию рабочего листа Excel - Application.Trim(...), которая убирает не только лидирующие и конечные пробелы, но и повторные. Например так:

Application.Trim(Replace(LCase(cell), " ", ""))

[Ilya_L]

попробую...а можно в эту проверку условия на значение ячеек поставить?
например, в D должны быть значения [1;100], если нет, то отметить, а в E и F от 2 до 5, но никак 1 или 6 и т.д., т.е. <2 или >5 отметить?

[SAS888]

Давайте так:
Создайте новую тему и очень подробно опишите задачу. Еще лучше, если Вы прикрепите файл-пример с тем, что есть и с тем, что Вы хотите получить в итоге.