Как исключить скрытые ячейки в al oop?

Question

Я создал al oop для чтения текстовых значений ячеек в заданном c столбце (D) в диапазоне. Некоторые строки фильтруются. Я не хочу включать отфильтрованные ячейки в l oop.

Dim i As Long
For i = 0 To VisibleCellsCount
    Workbooks("Samples").Sheets.Add after:=Sheets(i + 1)
    Worksheets(i + 2).Activate
    CommunityName = Workbooks("Sampling Template_New").Sheets("Samples").Range("D" & FirstRow + i).SpecialCells(xlCellTypeVisible).value
    Workbooks("Samples").Sheets(i + 2).Name = CommunityName
Next I

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