I have a workbook which contains about 15 worksheets. I update the data for
the workbook and now need to save the individual sheets as separate workbooks
using the sheet names as the file name.

How do I loop through each worksheet and save them as separate workbooks
using the sheet 'tab' names as the file names?

Sub SaveSheet()

ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\Data\AMReports\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close SaveChanges:=False

End Sub

Thanks - -TB- -