Thanks and please Bill this time to client development

(http://www.autoadmit.com/thread.php?thread_id=5722762&forum_id=2#48917011)

Dim ws As Worksheet

Dim wb As Workbook

Dim savePath As String

' Set the save path

savePath = "C:\Your\Save\Path\" 'Replace with your desired path

' Loop through each sheet

For Each ws In ThisWorkbook.Sheets

' Create a new workbook

Set wb = Workbooks.Add

' Copy the sheet to the new workbook

ws.Copy Before:=wb.Sheets(1)

' Rename the sheet in the new workbook

wb.Sheets(1).Name = ws.Name

' Save the new workbook

wb.SaveAs Filename:=savePath & ws.Name & ".xlsx"

' Close the new workbook (optional)

wb.Close

Next ws

End Sub

(http://www.autoadmit.com/thread.php?thread_id=5722762&forum_id=2#48917164)

I'll just explain to the secretary what I want done about 8-12 times, and maybe it'll be finished by next Wednesday

(http://www.autoadmit.com/thread.php?thread_id=5722762&forum_id=2#48917244)

brother you can just go here and give it to your AI gf and she will do it for you in 2 seconds i'm not flaming

(http://www.autoadmit.com/thread.php?thread_id=5722762&forum_id=2#48917249)