تعديل كود

[احمد حسن الامام]

هذا الكود  لانشاء شيت جديد باسم معين وهو تمام 

بس فى مشكله عند الضغط على 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

 

تم تعديل فبراير 28, 2018 بواسطه احمد حسن الامام