Dim i As Integer
Dim Name As String
Name = "Test-"
Application.CopyObjectsWithCells = False

For i = 1 To 11
Sheets("SH-1").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Test- " & Sheets.Count
Next i
Application.CopyObjectsWithCells = True 'reset
End Sub