Re:답변 부탁드립니다.

[곽완근]

안녕하세요?

시트를 순환하셔야 합니다.

간단한 사용자 정의 함수를 이용해 보았습니다.

Sub test()
    Dim iX As Integer
    iX = count_visible_sheet(ThisWorkbook)
    MsgBox iX
End Sub

Function count_visible_sheet(wb As Workbook)
    Dim s As Worksheet
    For Each s In wb.Worksheets
        If s.Visible = xlSheetVisible Then
            temp = temp + 1
        End If
    Next
    count_visible_sheet = temp
End Function

[김효원]

감사합니다..

[최우성]

역시 카페지기님 ^^

[곽완근]

(_ _) 부끄럽습니다. 형님