To export excel and save as PDF

To export excel and save as PDF

Sub pdf()

Dim s As String
Dim path As String
path = Sheets("Input Billing").Range("b9").Value
s = Sheets("Billing").Range("b10")
    Application.ScreenUpdating = False
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            FileName:=path & "Billing " & s & ".pdf", _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True

End Sub