بعد أذن الأخ الفاضل / thair younus
هذا تعديل بسيط على الكود لمنع تكرار أسماء الصفحات
وأيضا لا يسمح بترك الاسم فارغا
Private Sub CommandButton1_Click()
Dim sh As Worksheet
If TextBox1.Text = "" Then MsgBox "ÇÓã ÇáÔíÊ áÇ íäÈÛì Ãä íßæä ÝÇÑÛÇ": Exit Sub
For Each sh In ThisWorkbook.Worksheets
If sh.Name = TextBox1.Text Then MsgBox "åÐÇ ÇáÇÓã ãæÌæÏ ãä ÞÈá", vbOKOnly, "ÇÓã ÔíÊ ãßÑÑ": Exit Sub
Next
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Name = TextBox1.Text
TextBox1.Text = ""
Me.Hide
End Sub
اضافة شيت.rar