Save & Rename Worksheet

Here's another suggestion by Mumps1 from another thread:

Sub RenameSheet()
    Dim response As String
    response = InputBox("Please enter the new name of the sheet.")
    If response = "" Then Exit Sub
    If Not Evaluate("isref('" & response & "'!A1)") Then
       ActiveSheet.Name = response
    Else
        MsgBox ("A sheet named '" & response & "' already exists." & Chr(10) & "Please try again using a different name.")
    End If
End Sub

Artik