FYI, your code does not work... this one does.

Public Sub CopySheetAndRename() Dim newName As String

On Error Resume Next newName = InputBox("Enter the name for the copied worksheet")

If newName <> "" Then activeSheet.Copy After:=Worksheets(Sheets.Count) On Error Resume Next activeSheet.Name = newName End If End Sub