Macro Move Sheets

[Packfan86]

Hey everybody,


I have about 80 sheets in a workbook, and I would like to put each sheet into it's own workbook, and have that new workbook called by the value in Column A. Does anybody know how I would do this?

Thanks in advance!

 

[DonkeyOte]

No, in VBA you would use Date

wb.SaveAs ThisWorkbook.Path & "\" & Format(Date,"yyyymmdd") & "_" & ws.Name & ".xls"

Alter Format as required.

 

[zakasnak]

Here's what I came up with & it works B-E-A-U-tifully!!


Sub SaveWS_to_NewWBs()
Dim wb As Workbook
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Copy
Set wb = ActiveWorkbook
wb.SaveAs ThisWorkbook.Path & "\" & ws.Range("A8").Value & " " & ws.Name & " " & ws.Range("X8").Value & " " & Date$ & ".xls"
wb.Close False
Next ws
End Sub