Hi Dave,
This is a Word newsgroup...
I am not Excel VBA expert, but I presume you would need something along the
lines of:
'_______________________________________
Sub Worksheet_to_Workbook()
Dim CurWbk As Workbook
Dim TarWbk As Workbook
Dim WkstToWbk As Worksheet
Dim WkstName As String
Dim WbkPath As String
Set CurWbk = ActiveWorkbook
CurWbk.Save
WbkPath = CurWbk.Path
For Each WkstToWbk In CurWbk.Worksheets
WkstName = WkstToWbk.Name
WkstToWbk.Copy
Set TarWbk = ActiveWorkbook
TarWbk.Close True, WbkPath & _
Application.PathSeparator _
& WkstName & ".xls"
Set TarWbk = Nothing
Next WkstToWbk
End Sub
'_______________________________________
But, you'd better check in an Excel newsgroup for more information.
HTH.
--
Cheers!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site:
http://www.word.mvps.org
