Hi everyone!

I have a macro that saves the first worksheet of a workbook based on specific cell information.

Sub SaveInvWithNewName()
    Dim NewFN As Variant
    'Copy Invoice to a new workbook
    ActiveSheet.Copy
    NewFN = "\\8789-01-adc01\common\EH&S\Certificates of Recycling\" & Range("d36").Value & ".xlsx"
    ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Close
    NextInvoice
End Sub
I would like to expand this macro to save the first and second worksheet, if there is data in a specific cell of the second worksheet.

Any suggestions would be greatly appreciated.