Excel 2010 multiple sheet selected to save each as a different PDF file

Hello guys, I'm quite newbie with VBA.

I have a huge file with around 30 sheets and increasing. I've setup 2 different macros. The first one would apply a PageSetup and split the sheet into 7 different pages and the second one would save it as pdf with defined filename from cell value (I've splitted them cos the first one takes a while to apply).

The problem is that if I have to save several sheets by selecting them (select and CNTRL each one) and run my macro it will save the same file with all pages from all sheets selected. E.g. if I've selected 3 sheets (21 pages in total) it will create 3 different pdf files with all 21 pages. AND I WANT EACH ONE SEPARATELY!!!

This is my macro:

Please Login or Register  to view this content.

You use ActiveSheet.export ??? Thats all active sheets.

Use:

Please Login or Register  to view this content.

Hello Gerard,

I've used your code with correct path and still no change, it keeps saving all sheets at the same pdf 3 times with different names according to the cell reference. it looks like it's taking correctly the Fname value, but then it applies the export to all selected sheets. Could it be that save as pdf options from excel, since it's different than export to other file extension, does always apply to all selected ones, even if it's not activated???

That's not what I see in my testing, the code that I have posted, is creating an PDF file for each sheet that was selected.
I will get multi pages when I put in page breaks.

What do you see in the print preview?
Have You tried the code in a new workbook, only setting name to the B2 for several sheets?

When you want to export part of the sheet, setting the PrintArea to the part you want to export works for me

Otherwise provide sample workbook what has the problem.

Hi Gerard, thanks for trying!

I've copied in a new workbook, define an specific print area in each of them and run the macro (no pagebreak or anything weird in it). Same is happening...

Supply the test workbook where the problem occurs..

Great Buran, thanks a lot!! It actually helps. It was what I thought in my first reply. save as PDF will print all selected sheets into one, so they key was to unselect all and individually keep selecting each before printing.

Thanks a lot!!!

Buran solution worked just fine Gerard. Thanks for helping anyway!!!!