цвет ярлычка заполниного листа

[impact]

День, добрый! Помогите пожалуйста. Есть около 250 листов в каждом листе одинаковая по формату таблица (количество строк и столбцов на каждой странице совпадает) Надо создать макрос который будет выделять цветом ярлычок листа на которм таблица заполнина, а пустые листы их ярлычок не выделяется цветом. Для примера вкладываю файл (например если лист "болт" заполнин то его ярлычёк становится красного цвета.
В файле небольшое кол-во листо на самом деле их около 250.
Дайте идею плиз !!!!

[Watcher_1]

Ловите!
Не забудьте включить макросы...

[EducatedFool]

А вы не могли бы показать пример заполненного и незаполненного листов?
А то в вашем файле на всех листах одно и то же - и непонятно, то ли эти листы заполнены, то ли нет.

А зачем столько листов?
Разве не удобнее было бы хранить все данные в одной таблице?

[IgorGO]

в Вашем примере, лист "болт" заполнен такими же "болтами" (извините за тавтологию), как и все остальные.
может этот мощный макрос Вам поможет

Sub FillBlankSheetTab()
  For Each sh In Sheets
    If WorksheetFunction.CountA(sh.[b2:h10]) = 0 Then sh.Tab.Color = 255 Else sh.Tab.Color = 0
  Next
End Sub

признаком заполненного листа в данном алгоритме является наличие хоть чего-нибудь в диапазоне b2:h10

[Watcher_1]

Сообщение от IgorGO

в Вашем примере, лист "болт" заполнен такими же "болтами" (извините за тавтологию), как и все остальные.
может этот мощный макрос Вам поможет

Sub FillBlankSheetTab()
  For Each sh In Sheets
    If WorksheetFunction.CountA(sh.[b2:h10]) = 0 Then sh.Tab.Color = 255 Else sh.Tab.Color = 0
  Next
End Sub

признаком заполненного листа в данном алгоритме является наличие хоть чего-нибудь в диапазоне b2:h10

Зачем все листы перебирать
Я думаю так проще .... %))))

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Application.WorksheetFunction.Count(Sh.Range("B2:H10")) > 0 Then
        Sh.Tab.Color = 255
    Else
        Sh.Tab.Color = 12632256
        
    End If
 End Sub

[impact]

Watcher_1 всё работает просто на ура !!!!