[Excel] 시트 이름 특정 셀에 입력하기

Sub Repeat()
Dim Count As Integer
Dim i As Integer
Count = ActiveWorkbook.Worksheets.Count
For i = 1 To Count ' N번 시트부터 끝까지 실행
Sheets(i).Select
'실행할 매크로 이름 혹은 수행할 내용
Cells(1, 4).Value = ActiveSheet.Name
Next
End Sub