طلب مساعده في كود نسخه من الشيت

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

 في هذا الكود يقوم بأخذ نسخه من شيت1  وفتح شيت باسم العميل  المحدد في شيت البداية 

الكود يقوم باخذ نسخه من شيت1 بكل الدوال 

المطلوب ان لا ياخذ الدوال التي توجد بالخلية  
B1,B2
ياخذ الاسم المكتوب فقط
وان ياخذ جميع الدوال في باقي الشيت
 

الملف مرفق

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
        .Cells.Copy
        .Cells.PasteSpecial
    End With
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

 

R.xlsm

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

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

 

 

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