Cacher is the code snippet organizer for pro developers

Sub PDFWorkbook()
    Dim fileName As String
    fileName = ActiveWorkbook.FullName
    If InStr(fileName, ".") > 0 Then fileName = Left(fileName, InStrRev(fileName, ".") - 1)
    ActiveWorkbook.ExportAsFixedFormat xlTypePDF, fileName & ".pdf", _
                                       xlQualityStandard, , , , , True
End Sub