Amend VBA

[Gemandshed]

Hi.

I’m using the following VBA to convert all my worksheets to PDF.
However I want to change the file name to include additional text (worksheet name and “_QTR12024”
Where do I add this in the below to get this result?
Assuming it’s in the file name bit but I’ve got a hundred tabs so don’t want to get it wrong.

Thank you in advance

Sub SaveAsPDF()

Dim CurWorksheet As Worksheet

For Each CurWorksheet In ActiveWorkbook.Worksheets

CurWorksheet.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=Application.ActiveWorkbook.Path & “\” & CurWorksheet.Name, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Next CurWorksheet

End Sub


Regards

 

[hrayani]

Hi,

How about

Sub SaveAsPDF()

Dim CurWorksheet As Worksheet

For Each CurWorksheet In ActiveWorkbook.Worksheets

    CurWorksheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Application.ActiveWorkbook.Path & "\" & CurWorksheet.Name & "_QTR12024", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Next CurWorksheet

End Sub

 

[Gemandshed]

Does this add the text ‘_QTR12024’ to the file name when creating the PDFs?

 

[hrayani]

Does this add the text ‘_QTR12024’ to the file name when creating the PDFs?

yes

 

[Gemandshed]

thanks. What would I need to do if they want any more text? Or the text changing? What would I need to amend?

yes

 

[hrayani]

thanks. What would I need to do if they want any more text? Or the text changing? What would I need to amend?

you need to change as below "YourAdditionalText"

Filename:=Application.ActiveWorkbook.Path & "\" & CurWorksheet.Name & "YourAdditionalText"

 

[Gemandshed]

Thanks. I’ll give it a go

 

[hrayani]

Thanks. I’ll give it a go

 

[Gemandshed]

I’ve just seen it. I’m using a mobile device so it didn’t show the text to the right. sound stupid. Haha

 

[hrayani]

I’ve just seen it. I’m using a mobile device so it didn’t show the text to the right. sound stupid. Haha

no worries