반응형
Sub CallshtNm()
Dim sht As Worksheet
Dim i As Integer
For Each sht In Worksheets
ActiveCell.Offset(i, 0) = sht.Name
i = i + 1
Next sht
End Sub
반응형
'업무용' 카테고리의 다른 글
| [엑셀] 데이터가 들어있는 행, 열의 마지막 값 불러오기 (1) | 2023.09.06 |
|---|---|
| [연말정산] 주택자금 상환 증명서(신한) (0) | 2023.01.16 |
| [엑셀] 자동계산 켜고 끄기 VBA (0) | 2022.08.15 |
| [아웃룩] 중복된 메일 일괄삭제 (0) | 2020.11.02 |
| [엑셀] Vlookup 중복값 표시하기 (0) | 2020.11.02 |
