엑셀로 업무를 하다보면 정말 수많은 시트가 한 파일에 있는 경우가 있습니다. 이 워크시트들의 업데이트 여부나 필요여부 등을 조사할때 시트명을 추출할 필요가 있는데요 그때 하나씩 워크시트를 선택해가며 이름을 복사하기에는 손이 너무 많이 갑니다. 그럴때는 ALT+F11을 누른뒤 삽입-모듈 을 선택하여 다음 코드를 활용하면 좋습니다. Sub ListAllSheetNames() Dim ws As Worksheet Dim i As Integer '새 시트 생성 Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Sheet Names" i = 1 For Each ws In Worksheets '시트 이름 리스트업 If ws.Name "Sheet Names" T..
