Sub 시트명정열()
Dim sCnt As Integer
Dim i As Integer

vRng = 2
sCnt = ActiveWorkbook.Worksheets.Count
For i = 2 To sCnt
If Sheets(i).Visible Then
Sheets("main").Range("a" & vRng) = Sheets(i).Name
vRng = vRng + 1
End If
Next
End Sub