inputbox cancel

[jacobsoo]

Hi people of excelforum.

I stuck here in my inputbox, and can't seem to find an solution for the cancel button. I already tried dozens of options and it's not getting me any where.
The problem i have might be simple to some of you.

As soon as i use my macro I can't use the cancel button, I have to continue the whole thing to finish it. If i use the cancel button it simply give me an error in return, and after that the macro is being aborted.

The code I am using is for my monthly payments, and by activating an macro it copy's al relevant data to a new sheet with the inputbox to fill in the new sheet name.

The Code I use,

Sub Copy_sheet()
' duplicates same tab to new tab with input box for new tab number.
Dim newname As String
Dim sh As Worksheet
    newname = ActiveSheet.Name
Duplicatesearch:
    For Each sh In Worksheets
    If UCase(sh.Name) = UCase(newname) Then 
    newname = InputBox("enter new Daily Report Number")
    GoTo Duplicatesearch
    End If
    Next sh
    ActiveSheet.Copy Worksheets(1)
    ActiveSheet.Name = newname
        Range("C4").Select
'clear checkbox value.
    ActiveSheet.CheckBoxes.Value = False
' moves new sheet to the end of workbook.
        ActiveSheet.Move after:=Worksheets(Worksheets.Count)
'update data
    Range("J6:J13").Select
    Sheets(Sheets.Count - 1).Select
    Range("O6:O13").Select
    Selection.Copy
    Sheets(Sheets.Count).Select
    Range("J6:J13").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
' this is to auto save the sheet after adding an new sheet.
    ActiveWorkbook.Save
End Sub

Regards Olaf.