VBA for saving excel worksheet into .pdf document

Hi,

I was using the VBA

Sub Savepdf()

Application.ScreenUpdating = False
Dim fName As String
With ActiveSheet
    fName = .Range("E4").Value
    .ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
            fName & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
Application.ScreenUpdating = True
End Sub

but now it seems it is not responding/nor giving any result. Please let me know what could be the reason.

Regards,
Seemanth