Sub SaveSheets()
Dim i As Long

With ThisWorkbook
For i = 1 To .Worksheets.Count
.Worksheets(i).Copy
ActiveWorkbook.SaveAs Filename:=Worksheets(i).Name & ".xls"
Next i
End With

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Heine" wrote in message
...
How can i save 200 sheets in an excel file as 200 excel file with name of
sheet as file name. Due to the number of sheets it is needed to be done
automaticly.