Hello. The bwlow snippet of code return each sheet in a workbook. Is there
a way to return on sheets that are visible? Thank you!

For Each sh In bk.Worksheets
ThisWorkbook.Worksheets("Sheet Verify").Cells(cell.Row, j).Value =
sh.Name
j = j + 1