هذا الكود لانشاء شيت جديد باسم معين وهو تمام
بس فى مشكله عند الضغط على cancel ينشاء شيت ويفتحه
اولا
فهل من طريقه للتعديل حيث عن الضغط على cancel لا ينشاء شيت جديد
ثانيا هل من كود حذف شيت معين
والكود كالتالى
Sub newsheetcustomename()
On Error GoTo ErrorHandler
Dim NewSheet As Worksheet
Dim sheetname As String
Set NewSheet = Sheets.Add
("sheetname = InputBox("new
If sheetname = "" Or Len(sheetname) > 31 Then
("MsgBox ("00000000
Exit Sub
End If
NewSheet.Name = sheetname
ErrorHandler:
If Err.Number = 1004 Then
("MsgBox ("00000000
Application.DisplayAlerts = False
NewSheet.Delete
Application.DisplayAlerts = True
Exit Sub
End If
End Sub