모든 시트 이름 반환하기

모든 시트 이름을 반환하는 간단한 사용자 정의 함수입니다.

Function GetAllSheetNames() As Variant
    Dim ws As Worksheet
    Dim sheetNames() As Variant
    Dim i As Integer

    ReDim sheetNames(1 To ThisWorkbook.Sheets.Count)

    i = 1
    For Each ws In ThisWorkbook.Sheets
        sheetNames(i) = ws.Name
        i = i + 1
    Next ws

    GetAllSheetNames = sheetNames
End Function

 

매크로를 사용하지 않는 방법으로는 Excel Macro 4.0 매크로 함수를 이름정의해서 사용합니다.