Printing multiple worksheets to separate xlsx or csv files

[blkane]

Hi, Several years ago, this forum helped me create a VB macro to print multiple worksheets to separate PDF's. The code is below. Now, I need to change the code so that it prints to either a separate CSV or XLSX file. Either is fine. I've played around with it but I'm not having any luck. I'm hoping someone can help.

Sub SaveWorksheetsAsPDFs()
Dim sFile As String
Dim sPath As String
Dim wks As Worksheet

With ActiveWorkbook​

sPath = .Path& "\2016 10 Invoice Copies"
IfLen(Dir(sPath)) = 0 Then MkDir sPath 'folder doesn't already exist

For Each wksIn .Worksheets
​

If Not wks.Name Like "*DoNotPrint*" Then 'don't print datasheets
​

sFile = Format(WorksheetFunction.EoMonth(Now(), -1), "MM YYYY ")& wks.Name & ".pdf"
wks.ExportAsFixedFormat Type:=xlTypePDF, _
​

Filename:=sPath & sFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False​

End If​

Next wks​

End With​

End Sub

Thank you
Brenda

 

[Dr. Demento]

Brenda,

Does this help??

Create a workbook from every worksheet in your workbook

Google is our friend

Dr. D

 

[blkane]

Brenda,

Does this help??

Create a workbook from every worksheet in your workbook

Google is our friend

Dr. D

Worked perfectly! Thank you. A couple of tweaks and it saved in the format & names that I wanted.

 

[Dr. Demento]

Happy to help! Thanks for the feedback.