محمد عبد الناصر

تم حل المشكلة شكرا لكم 
هذا التعديل 
 

 
Sub CopySheet() Dim strName As String, SH As Worksheet strName = Trim(Sheet1.Range("b1").Value) For Each SH In Worksheets If SH.Name = strName Then Exit Sub Next SH Sheet1.Copy after:=Sheets(Sheets.Count) Sheets("Sheet1 (2)").Name = strName With Sheets(strName) .Shapes("Button 1").Delete .Range("B1").Copy .Range("B1").PasteSpecial xlPasteValues .Range("B2").Copy .Range("B2").PasteSpecial xlPasteValues End With Application.CutCopyMode = False Range("A1").Select End Sub