Как скрыть все вкладки без чего-либо в ячейке F6?

Question

У меня есть макрос для объединения нескольких книг Excel, а затем распечатывать все, вместо того, чтобы открывать каждую книгу по отдельности.

Однако в каждой из этих рабочих книг есть пустые вкладки шаблонов, которые называются PR1,2,3,4,5 и т. Д. Есть ли способ перебрать каждую вкладку в объединенной книге и скрыть все вкладки, которые не имеют ничего в определенной ячейке (в данном случае F6)?

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

Любая помощь будет оценена!

Answer 1

Ниже приведен НЕ правильный код, а рекомендации о том, как действовать.

Option Explicit

Sub test()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets

        With ws
            'If sheet name is Sheet1 then delete
            If .Name = "Sheet1" Then
                .Delete
            End If

        End With

    Next ws

 End Sub