매크로를 사용하여 워크 시트 만들기 (Microsoft Excel)

Sub AddNameNewSheet1()

Dim Newname As String     Newname = InputBox("Name for new worksheet?")

If Newname <> "" Then         Sheets.Add Type:=xlWorksheet         ActiveSheet.Name = Newname     End If End Sub

Sub AddNameNewSheet2()

Dim CurrentSheetName As String

'Remember where we started 'Not needed if you don't want to return 'to where you started but want to stay 'on the New Sheet

CurrentSheetName = ActiveSheet.Name

'Add New Sheet     Sheets.Add

'Make sure the name is valid     On Error Resume Next

'Get the new name      ActiveSheet.Name = InputBox("Name for new worksheet?")



'Keep asking for name if name is invalid     Do Until Err.Number = 0         Err.Clear         ActiveSheet.Name = InputBox("Try Again!" _           & vbCrLf & "Invalid Name or Name Already Exists" _           & vbCrLf & "Please name the New Sheet")

Loop     On Error GoTo 0

'Go back to where you started 'Not needed if you don't want to return 'to where you started but want to stay 'on the New Sheet     Sheets(CurrentSheetName).Select

End Sub