Excel To Pdf error

Hi Friends
i am trying to save active worksheet as pdf

But i am getting "Run time error 5 and Invalid procedure call or argument" error message

i get this code on Google search.

please suggest me where i am getting wrong

Sub SaveToPDF()
    With ActiveSheet
        .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:="C:\Test\Test.pdf", _
                OpenAfterPublish:=False
    End With
End Sub