Dim NaemSh As String On Error Resume Next NaemSh = InputBox("نام مورد نظر برای شیت جدید", "فیروزجایی") If NaemSh <> Empty Then Sheets.Add.Name = NaemSh
کامنت