Sub Cp()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If InStr(sh.Name, "NEU") Then sh.Delete
Next sh
Application.DisplayAlerts = True
Dim strN As String, strNn As String, rngU As Range, rngS As Range, rngA As Range, c As Range
strN = Sheets(1).Name
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Tab1NEU"
strNn = ActiveSheet.Name
Sheets(2).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Tab2NEU"
Set rngU = Sheets("Tab2NEU").UsedRange
Set rngS = rngU.SpecialCells(xlCellTypeFormulas)
For Each rngA In rngS.Areas
For Each c In rngA.Cells
c.Formula = Replace(c.Formula, strN, strNn)
Next c
Next rngA
End Sub