Sub test()
Dim WS As Worksheet
For Each WS In Worksheets
With WS
.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & .Name & ".pdf"
End With
Next WS
End Sub
Sub test()
Dim WS As Worksheet
For Each WS In Worksheets
With WS
.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & .Name & ".pdf"
End With
Next WS
End Sub