VBA save excel worksheet with workbook name plus text as a PDF

[Ed_B]

This code only saves with the workbook name and not the text "Sample". What am I doing wrong? All answers appreciated Thanks, Ed

Sub SamplePDF()
Dim strFolder As String
Dim i As Long

'Find the position of the period in the file name
i = InStr(ActiveWorkbook.Name, ".")

Filename = Left(ActiveWorkbook.Name, i - 1) & " Sample "
Sheets(" Sample ").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

 

[Norie]

You need to specify the filename when saving.

Sub SamplePDF()
Dim strFolder As String
Dim i As Long

    'Find the position of the period in the file name
    i = InStr(ActiveWorkbook.Name, ".")

    Filename = Left(ActiveWorkbook.Name, i - 1) & " Sample "

    Sheets(" Sample ").Select

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName, Quality _
         :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

End Sub

PS You'll probably also want to specify the folder the PDF is being save in, if you don't it'll get saved in what Excel considers the 'active' directory.