Exporting to PDF Macro - Naming Query

[dawhite]

Hi All,

I'm attempting to download all excel worksheets as pdf files using a macro (as per below), however the file names of the exported files are based off the worksheet names and I need them to be based off the contents of specific cells instead.

Can anybody help me to name the files according to specific cells rather than the worksheet names please?


Sub Export_All_Invoices()

Dim Folder_Path As String

With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select the Folder Path"

If .Show = -1 Then Folder_Path = .SelectedItems(1)


End With

Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets

sh.ExportAsFixedFormat xlTypePDF, Folder_Path & Application.PathSeparator & sh.Name & ".pdf"

Next

MsgBox "Done"


End Sub

 

[Deek6t8]

replace with this
sh.ExportAsFixedFormat xlTypePDF, Folder_Path & Application.PathSeparator & sh.range("<your cell ref here.").value & ".pdf"

 

[dawhite]

replace with this
sh.ExportAsFixedFormat xlTypePDF, Folder_Path & Application.PathSeparator & sh.range("<your cell ref here.").value & ".pdf"

Thanks so much for your response. Unfortunately, this now comes up with an error as per the attached image.

 

[Deek6t8]

Hmm strange worked perfectly on my side isthere definitely a value within the range on all sheets of your workbook?


Sub Export_All_Invoices()

Dim Folder_Path As String

With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select the Folder Path"

If .Show = -1 Then Folder_Path = .SelectedItems(1)


End With

Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets

sh.ExportAsFixedFormat xlTypePDF, Folder_Path & Application.PathSeparator & sh.Range("A1").Value & ".pdf"

Next

MsgBox "Done"


End Sub

 

[Deek6t8]

Also has it created any files in the chosen location or none at all?

 

[dawhite]

Also has it created any files in the chosen location or none at all?

Hi, I just had a play around and tried again and its worked now - thanks so much for your help!