السلام عليكم
استسمح أخي بن عليه لإضافة بعض الأسطر لكود إدراج صفحة جديدة لتفادي الخطأ ان كانت خلية الاسم فارغة او العميل موجود مسبقا
Sub Insert_Agent()
If [F2] = "" Then Exit Sub
On Error GoTo Ms
Sheets("copy").Copy After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = [F2]: .[F2] = "": End With
Sheets("copy").Select
[F2] = ""
If Err.Number = 55 Then
Ms:
Application.DisplayAlerts = False
MsgBox "إسم هذا العميل موجود مسبقا يرجى تغيير الإسم", vbCritical, "خطأ"
ActiveSheet.Delete
End If
End Sub