Migration from XP to Windows 7 VBA issue

[ireland13752]

Hello,

Can you please help me figure out what I need to tweak to get this macro to work again? It worked great until I had to do a Migration from XP to 7.

The code is pretty straightforward, so I am not sure why I cannot see it...
Code (vb):

Sheets("PRMC").Select
Sheets("PRMC").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Application.GetSaveAsFilename("VBP PRMC 2013-MM.pdf")


Some quick history: It takes specific tabs within a multi tab file and sets them up to be saved, since each month the name has to change, we have to set it to give the user the option ot change the name and then save them from the Excel version to .pdf, then moved to the next selection and does it again. This is just the saving piece as the rest of it seems to be working okay.

All the steps work except it is not putting the "Name" in the save as box as it did before...
Thank you in advance.

 

[NARAYANK991]

Hi ,

Before we start troubleshooting the macro , can you try out the same process manually , and see whether it works ? The macro code can be made to work provided the manual steps work.

Narayan

 

[ireland13752]

Hi ,

Before we start troubleshooting the macro , can you try out the same process manually , and see whether it works ? The macro code can be made to work provided the manual steps work.

Narayan

Yes, the steps work manually, I just cannot get it to process in the Macro. It will open the save box, but not populate the suggested name.
[
Filename:=Application.GetSaveAsFilename("VBP PRMC 2013-MM.pdf")
]

 

[Debraj]

Try something like..

Application.GetSaveAsFilename("VBP PRMC 2013-MM.pdf","PDF Files (*.pdf), *.pdf")