Save worksheets in current folder as .pdf

Sub export_To_Pdf() 
strFilePath = "D:\test\" ' <<<<<<<<< to be changed
 Application.ScreenUpdating = False
On Error Resume Next
For j = 1 To Sheets.count
  strPdfName = Sheets(j).Name
  Sheets(j).Copy
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilePath & strPdfName, _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
  OpenAfterPublish:=False
       
  ActiveWorkbook.Close (False)
Next
Application.ScreenUpdating = True
End Sub