list visible

[sna]

Hi Dear
I have a problem with macro to list all visible sheets.
Here's a code from my friend
Sub test()
Dim i As integer
Dim sh As Worksheet
Sheets.add after:=Sheets(Sheets.count)
For Each sh in ThisWorkbook.Worksheets
i=i+1
If sh.Visible=xlSheetVisible Then
Cells(i,1).Value=sh.Name
End if
Next
End Sub

But it is no luck, what is going wrong?


Best wishes,

[snasui]

Please post your code in the form of 'code style' and attach the example file for easy to test.

[sna]

Dear ,,
How can I post code in form of 'Code style'?

Best regards

[snasui]

Please read this post. ==> http://www.snasui.com/viewtopic.php?f=3&t=17150#p101403

[sna]

Code: Select all

Sub test()
Dim i As integer
Dim sh As Worksheet
Sheets.add after:=Sheets(Sheets.count)
For Each sh in ThisWorkbook.Worksheets
i=i+1
If sh.Visible=xlSheetVisible Then
Cells(i,1).Value=sh.Name
End if
Next
End Sub

[snasui]

You can use this code for listing all visible sheets.

Code: Select all

Dim i As Integer, sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    If sh.Visible = xlSheetVisible Then
        i = i + 1
        Cells(i, 1).Value = sh.Name
    End If
Next