-

серджио, ну добавте в код Nordheim,

Скрытый текст
Option Explicit Private Sub Workbook_Open() Dim sht As Worksheet For Each sht In Worksheets    If sht.Range("f11").Value <> 0 Then sht.Tab.Color = vbRed    If sht.Range("f11").Value = 0 Then sht.Tab.Color = vbWhite Next sht End Sub

Извините если не полностью указал смысл этого примера. Да при открытии во всех листах есть отклонение все листы стали красными Вы все верно сделали, просто дальше стал менять и нет изменений, сохранил закрыл открыл тоже ничего. В процессе моей работы много раз придется менять информацию.

Добавил, но без изменений к сожалению.

серджио, Вы уверены, что в Итого на каждом листе Вам достаточно функции СУММ? Представьте, что в "а" у Вас значения 1 и 3, а в "б" значения 3 и 1. Отклонения будут 2 и -2, в сумме они дадут ноль, но лист-то все равно проверить нужно (в примере лист2)
Предлагаю вместо Сумм писать так
=СУММПРОИЗВ(ABS(F5:F10))
Еще добавил в книгу Лист4, на котором автоматически выводится список всех листов книги и, если на каком-то из листов ячейка F11 не равна нулю, то рядом с именем этого листа создается гиперссылка, тпнувшись на которую, Вы перейдете на соответствующий лист

Всё на формулах, поэтому реагирует на все изменения сразу (только при добавлении нового листа нужно пересчитаться - нажать F9), но макросы должны быть разрешены - в именах (Контрл F3) есть макрофункция

============
Файл перевложил. В прошлом забыл убрать ненужное имя

_Boroda_, здравствуйте, просто взрыв мозга ничего пока понять не могу но оооочееень круто все работает, восхищению нет предела, обалдеть. Вы просто волшебники, откуда такие мозги берете, если там еще осталось можно мне немного))) я до такого никогда не додумался бы высший пилотаж. Спасибо огромное!!!