SAVE WORKSHEET AS PDF & COPY WORKBOOK TO NEW WORKBOOK VBA

 SAVE WORKSHEET AS PDF

Sub SaveWorkshetAsPDF()

Dimws As Worksheet

For Each ws In Worksheets

ws.ExportAsFixedFormat _

xlTypePDF, _

"ENTER-FOLDER-NAME-HERE" & _

ws.Name & ".pdf"

Next ws

End Sub

COPY WORKBOOK TO NEW WORKBOOK

Sub CopyWorksheetToNewWorkbook()

ThisWorkbook.ActiveSheet.Copy _

Before:=Workbooks.Add.Worksheets(1)

End Sub