VBA to print all selected sheets

[ExcelAtEverything]

I have code already that selects 10 of the 20 or so worksheets in my workbook. The next part of the code (shown below) is what I need help with.

As it stands, this code below will print every worksheet in my workbook as a PDF, and name each PDF as the same name as the sheet it was printed from (the name of the tab/worksheet).
But I need to change it so that it only prints a PDF copy of each sheet that's currently selected, and names each PDF as (Worksheet name) & the date. The date needs to be the date that exists already in the workbook in cell $G$3 of "Sheet1", if that's possible.

Dim ws As Worksheet
Dim folderPath As String

folderPath = "C:\Users\myname\Downloads\"

If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"

For Each ws In ThisWorkbook.Worksheets
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=folderPath & ws.Name & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
'
End Sub

Thanks!

 

[HaHoBe]

Hi ExcelAtEverything,

maybe try and wrap the code in Code-Tags instead of formatting it as bold.

Please try

Dim objSheet As Worksheet
Dim folderPath As String

folderPath = "C:\Users\myname\Downloads\"

If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"

For Each objSheet In ActiveWindow.SelectedSheets
  objSheet.ExportAsFixedFormat _
      Type:=xlTypePDF, _
      Filename:=folderPath & objSheet.Name & Worksheets("Sheet1").Range("G3").Text & ".pdf", _
      Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
Next objSheet

As the name of the worksheet and the date will be printed without gap you may want to add a blank between these two (or revert them).

Ciao,
Holger

 

[ExcelAtEverything]

Smoooooth. Thank you so much!