Saving as a PDF file and using a cell name as the file name

[CJ2308]

Trying to figure this out, I want to save a a sheet as a PDF file where the value in B22 is the file name.

If I run this macro as it seems to convert it to a PDF file, but is labeld ISF Form and is not saved.

Thanks,


Sub savePDF()
'
' savePDF Macro
'

'
Dim fname As String
With ActiveSheet
fname = "C:\Users\USA\Documents\ISF FORMS\" & Range("B22").Value
.ExportAsFixedFormat Type:=xlTypePDF, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End With
End Sub

[AlphaFrog]

Sub savePDF()
'
' savePDF Macro
'
ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:\Users\USA\Documents\ISF FORMS\" & Range("B22").Value, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub

[CJ2308]

Thanks for your help! This worked.