Worksheet Duplication Code Help

[Admin]

Hi

I hope this will do

Sub Create_New_Invoice()
  
    Dim InvNo As String
    
    Application.ScreenUpdating = False
    EEvents = True
  
    Const ConstInvNo    As String = "TWS/0902/2016"
  
    With wksFormat
        With .Range("J13")
            InvNo = .Value
            InvNo = ConstInvNo & Format(Right(InvNo, 4) + 1, "0000")
            .Value = InvNo
        End With
        .Range("J7").Value = Date
        .Copy After:=Worksheets(Sheets.Count)
        On Error Resume Next
        ActiveSheet.Name = Right(InvNo, 4)
        ActiveSheet.Buttons("cmdAdd").Delete
        On Error GoTo 0
    End With
    Application.ScreenUpdating = True
    EEvents = False

End Sub