Handling Errors when using VBA to copy a sheet

[brianfosterblack]

I am using this code to copy a worksheet and rename the copied sheet

Sub CopySheet()
Dim ShName As String

        With ActiveSheet
        ShName = .Name & "Copy"
        .Copy After:=Sheets(Worksheets.Count)
        End With
    
    Sheets(Worksheets.Count).Name = ShName
    ActiveSheet.Name = InputBox("Enter the New Sheet name" & vbCr & "making sure it is only one word")
End Sub

This works perfectly but I run into a problem if I name the sheet with a name that already exists
I then get this message "Run Time error 1004 That name is already taken, try a different 1"
Even though I end the sub, a worksheet has been copied with the name of the sheet I copied with the word copy added to the name
I have no idea how to handle errors in VBA. I have tried to read up on this but it is a little over my head.
Can someone please help with the code I need.

 

[Fluff]

How about

Sub brianfosterblack()
   Dim ShName As Variant
   
   ShName = InputBox("Enter the New Sheet name" & vbCr & "making sure it is only one word")
   If ShName = "" Then Exit Sub
   If Evaluate("isref('" & ShName & "'!A1)") Then
      MsgBox ShName & " is already taken"
      Exit Sub
   End If
   ActiveSheet.Copy , Sheets(Sheets.Count)
   ActiveSheet.Name = ShName
End Sub

 

[brianfosterblack]

Thanks Fluff. This works perfectly. Great that I do not have to use error handling

 

[Fluff]

You're welcome & thanks for the feedback.