Hi

You could try something like


UNTESTED CODE

Sub Macro1()

Dim ws As Worksheet


For Each ws In Worksheets
ws.Activate
wsname = ws.Name

Sheets(ws.Name).Select
Sheets(ws.Name).Copy
ActiveWorkbook.SaveAs FileName:= _
"C:\Documents and Settings\Ken Macksey\My Documents\" & ws.Name &
".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:=False

Next


End Sub


HTH

Ken


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.692 / Virus Database: 453 - Release Date: 28/05/2004