유영락-정보시스템 감리도구를 통해 생산성 향상

Sub 시트명가져오기_Click()

   

Dim sht As Worksheet

Dim i As Integer

 

'전체 시트를 하나를 읽는다.

For Each sht In Worksheets

'선택한 셀 기준으로 행을 증가하면서

ActiveCell.Offset(i, 0) = sht.Name

 

'다른방법 : 행/열 설정시 반드시 1이상의 값을 지정해야 한다.

'ActiveSheet.Cells(i, 1) = sht.Name

i = i + 1

Next sht

 

End Sub