Save Active sheet as .pdf - file error

[Pacific_Quest]

Good afternoon,

I'm currently running VBA;

Sub InvoiceSave()
Dim stFileLocation As String
ActiveSheet.Copy
With ActiveSheet.UsedRange
    .Copy
    Range("A1").Select
End With
Application.CutCopyMode = False
stFileLocation = Application.GetSaveAsFilename(InitialFileName:=" - Invoice")
ActiveWorkbook.SaveAs Filename:=stFileLocation & "pdf"
ActiveWorkbook.Close Savechanges:=False
End Sub

The file generates and saves as a .pdf, however upon opening the file, it pops up that it's unable to open because it is either not supported, corrupt or not decoded correctly

Any ideas how to fix this?

Thanks,
PQ