Visible sheets

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Steph - 31 Jan 2006 22:18 GMT

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

Reply to this Message

Norman Jones - 31 Jan 2006 22:35 GMT

Hi Steph,

Try something like:

'=============>>
Public Sub Tester()
Dim SH As Worksheet
Dim j As Long
For Each SH In ActiveWorkbook.Worksheets
If SH.Visible = True Then
j = j + 1
ThisWorkbook.Worksheets("Sheet Verify"). _
Cells(1, j).Value = SH.Name
End If
Next SH

End Sub
'<<=============

---
Regards,
Norman

> Hello. The bwlow snippet of code return each sheet in a workbook. Is
> there
[quoted text clipped - 4 lines]
> sh.Name
> j = j + 1

Reply to this Message

Dave Peterson - 31 Jan 2006 22:38 GMT

for each sh in bk.worksheets
if sh.visible = xlsheetvisible then
ThisWorkbook.Worksheets("Sheet Verify").Cells(cell.Row, j).Value _
= sh.Name
j = j + 1
end if
next sh

> 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!
[quoted text clipped - 3 lines]
> sh.Name
> j = j + 1

Signature

Dave Peterson

Reply to this Message