땡큐엑셀vba & 엑셀매크로

 

 

 

'
' Source by 땡큐엑셀vba & 엑셀매크로
'
' 시트이름 나열하기

Sub 시트리스트업()


    ' sheets.count를 통해 시트 갯수만큼 루프를 수행
    '
    i = 1
    For i = 1 To Sheets.Count
        Cells(i, "A") = Sheets(i).Name
    Next


    MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"

End Sub

 

시트이름나열-sheets_counts-땡큐엑셀vba.xlsm
0.13MB