Sub ClearTab()
  mb = MsgBox("Вы действительно хотите очистить форму? ", 308, "В Н И М А Н И Е !"    
  Select Case mb
  Case Is = 6

      Application.Dialogs(xlDialogSaveAs).Show    'диалог сохранения

  ' макрос очистки

       mb1 = MsgBox("Создать ярлык на Рабочем столе?", 36, "Microsoft Excel"    
      Select Case mb1
      Case Is = 6
    With CreateObject("WScript.Shell"    'Создание ярлыка на рабочем столе - для Активной     книги
      iFileName = ThisWorkbook.Name & ".lnk"
       With .CreateShortcut(.SpecialFolders("Desktop" & "\" + ThisWorkbook.Name + ".lnk"    
         .TargetPath = ThisWorkbook.Path & "\" & ThisWorkbook.Name
         .Save
        End With
        End With
       Case Is = 7
       End Select
       MsgBox "Введите новую ДАТУ!", 64, "Выполнено"
  Case Is = 7
  End Select
End Sub