Dim sheetname Dim Sheetstart As Integer Dim nosheet As Integer
Set sheetname = Sheets("시트명") nosheet = Worksheets.Count
With sheetname .Range("C5:C1000").ClearContents For Sheetstart = 1 To nosheet .Cells(Sheetstart + 4, 3) = Sheets(Sheetstart).Name Next Sheetstart End With
End Sub
<안내> 사용, 배포 등의 제한이 없습니다. 자유롭게 사용해주세요. 관련하여 보완이 필요한 부분이 있으면 댓글을 통해 말씀해주세요. 조언, 문의, 추가자료 언제든 환영합니다.