[Excel] 시트이름 일괄 변경

Sub 시트이름변경()
Dim i As Integer
    With [a1:a216] 'a216이라 써있는데 맨 아래 셀로함됌
        For i = 2 To .Rows.Count
            Sheets(i).Name = .Cells(i)
        Next
    End With
End Sub

시트이름 바꿀 친구들만 냅두고, 맨 첫번째 시트에 A2부터 이름을 쭉 나열해주고 돌리면됨.

ActiveSheet.Name
: 시트이름 가져오기

참고 : 시트이름변경