الاخوه الافاضل
بعد البحث فى المنتدى
استطعت معالجة الكود
وبالتالى اصبح الكود بالشكل الاتى
Sub New_Sheet()
Range("J2:Q3").Select
Selection.Copy
mySht = ActiveSheet.Name
Set Sht = ActiveSheet
N_Sht = Format(Sheets(mySht).[A2], "#")
For I = 1 To Sheets.Count
If Sheets(I).Name = N_Sht Then MsgBox ("ÊæÌÏ æÑÞÉ ÈåÐå ÇáÊÓãíÉ... Úáíß ÊÛííÑ ÇáÇÓã ãä ÌÏíÏ"): GoTo 1
Next
Set Sht = Sheets.Add(After:=Sheets(Sheets.Count))
ActiveSheet.Name = N_Sht
ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Sheet1").Select
1 End Sub