ایجاد سریع چند صفحه در اکسل توسط ماکرو

Sub CreateSheets()
               Dim rng As Range
               Dim cell As Range
               On Error GoTo Errorhandling
               Set rng = Application.InputBox(Prompt:="محدوده نام صفحه ها را انتخاب کنيد", _
               Title:="ايجاد سريع صفحه", _
               Default:=Selection.Address, Type:=8)
               For Each cell In rng
               If cell  "" Then
               Sheets.Add.Name = cell
               End If
               Next cell
               Errorhandling:
               End Sub