Hi Todd,

Try something like:

'=============
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet

For Each SH In ActiveWorkbook.Worksheets
SH.Copy
With ActiveWorkbook
.SaveAs Filename:=SH.Name & ".xls", _
FileFormat:=xlWorkbookNormal
.Close SaveChanges:=False
End With
Next SH
End Sub
'<<=============


---
Regards,
Norman


"ToddEZ" wrote in message
...
Hello,

I am looking for some help to create a macro that saves each sheet in a
workbook as a separate worksheet named the same as the sheet.

...not sure where to begin.

Thanks in advance.