Getting Run-time Error with Code to save Sheet as PDF

I have a workbook with code to condense a table of data and save.
I am getting a run-time error when the code tries to save as a PDF.
The code works sometimes and sometimes it doesn't.
I am not schooled in Excel, I hacked together this is code from searches on the web in an effort to create a form for my boss.
Any and all help with this issue will be appreciated!

Macro should save Sheet2 with cell Sheet2 F8's value as the documents name in target folder.. after condensing a list.

Please Login or Register  to view this content.

I've put your code in a dummy workbook and it works fine.

Things that I think may cause an issue are F8 not containing anything or containing something that wouldn't make a valid file name.

Without an example workbook it's difficult to diagnose the issue.

BSB

I'm assuming when you save the file as a PDF you are using the Job# from F8 on Sheet1 as the file name?

If so then you need to change this line of code:

Please Login or Register  to view this content.

To:

Please Login or Register  to view this content.

At the moment it is looking for a file name in F8 on Sheet2. If that cell is empty then it throws up the error.

BSB

BSB,
You beat me to it..I had already changed F8 to B2 and it doesn't seem to make a difference.
I thought the with statement was specifying which sheet to print.

Using a 'with block' causes everything inside the block (after With X and before End With) to be performed on whatever you specify as X.

So With Sheet2 will cause everything to happen in relation to Sheet2 unless specified otherwise.

Try changing:

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

BSB

Thanks BSB !

That works great! I changed it to Sheet2.Range("B2").Value and it only prints Sheet2 to target folder.

As always I am very grateful for the help!
Slide1

Happy to assist

BSB