Как запустить код только через видимые вкладки?

Question

У меня довольно тривиальная проблема.У меня есть этот код [который, как вы видите, специфичен для рабочего листа, мне нужно, чтобы он проходил через все видимые [не скрытые] рабочие листы, не могли бы вы посоветовать?]:

Sub TRANS_to_EDD()

Dim WB As Workbook
Dim LTD As Worksheet
Dim INF As Long, RSP As Long

Set WB = Workbooks("XX.xlsm")
Set LTD = WB.Sheets("LimitedCo")
Set EDD = WB.Sheets("EDD")

INF = LTD.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To INF
If LTD.Range("I" & i).Value = "Reject" Then
    LTD.Range("I" & i).Offset(0, -6).Copy
    EDD.Range("C" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End If
Next i

For i = 2 To INF
If LTD.Range("I" & i).Value = "Reject" Then
    LTD.Range("I" & i).Offset(0, -5).Copy
    EDD.Range("E" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End If
Next i

Application.CutCopyMode = False
End Sub

Спасибо

PS.EDD всегда остается, поскольку это конечный пункт назначения.

Answer 1

Просто просматривайте таблицы, проверяя, видны ли они:

Dim ws As Worksheet
For Each ws In Workbooks("XX.xlsm").Worksheets
    If ws.Visible = xlSheetVisible Then
        ' Do things
    End If
Next ws