[QUOTE][QUOTE]Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim cl As Range
    If IsEmpty(Range("F9")) Then
        MsgBox "Забыли заполнить ячейку F9!", vbCritical + vbOKOnly
    End If
    Cancel = True
End Sub
[/QUOTE][/QUOTE]

   Dim s As Worksheet
   Dim wb As Workbook

   Set wb = ActiveWorkbook

   For Each s In wb.Worksheets                                 'проходим во всем листам активной книги

       s.Copy                                                  'сохраняем лист как новый файл

       ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xlsx"  'сохраняем файл

   Next

End Sub

Sub ResizeLegendEntries()

  With Worksheets("Sheet1").ChartObjects(1).Activate
     ' Store the current font size
     fntSZ = ActiveChart.Legend.Font.Size

     'Temporarily change the font size.
     ActiveChart.Legend.Font.Size = 2

        'Place your LegendEntries macro code here to make
        'the changes that you want to the chart legend.

     ' Restore the font size.
     ActiveChart.Legend.Font.Size = fntSZ
  End With
End Sub