시트 추가하기
시트추가하기같은 하찮은걸 원했다기 보다는
시트를 추가했을 때, '첫번째 시트'가 바뀌게 되는데,
순서와 갯수를 컨트롤하는 것을 알아보고자 했다.
추가하는 건 덤으로 알게됐으니...;;;
[코드샘플]
Sub sheets_add()
Dim addNUM As Integer
On Error Resume Next
Application.DisplayAlerts = False
addNUM = Application.InputBox("시트를 몇장 추가하시겠습니까?", , , , , , , 2)
Application.DisplayAlerts = True
If MsgBox("시트를 " & addNUM & "장 추가하시겠습니까?", vbYesNo) = vbYes Then
Worksheets.Add before:=Worksheets(1), Count:=addNUM
End If
lsSHEETS_COUNT = Worksheets.Count
MsgBox _
"마지막워크시트 이름은 " & Worksheets(lsSHEETS_COUNT).Name & " 입니다." & vbCr & _
"첫번째워크시트 이름은 " & Worksheets(1).Name & " 입니다."
End Sub
