Hi guys,
Yes, I know this question have been posted before, but I couldn't make use of the suggestions I found.
This is my current code:
Sub SaveAllAsPDF()
Dim wsh As Worksheet, vWshs, vWshName
RptDatum = Range("C10")
vWshs = Array("SheetX", "SheetY", "SheetZ")
With ActiveWorkbook
For Each...