Sheet Operations Manager

Sub ManageWorksheets()
    Dim operation As String
    Dim sheetName As String
    Dim newName As String
    Dim ws As Worksheet

    operation = InputBox("Choose operation: ADD, RENAME, DELETE, or ORGANIZE:", "Sheet Manager")

    Select Case UCase(operation)
        Case "ADD"
            sheetName = InputBox("Enter name for new sheet:")
            If sheetName <> "" Then
                Set ws = Worksheets.Add
                ws.Name = sheetName
                MsgBox "Sheet  & sheetName &  added successfully!"

' ... 34 more lines hidden ...
'
' Sign up for free to view the complete code
' Visit: vbacode.io