Stop duplicate saving

Hi,
I've created the following VBA code to print an excel worksheet to PDF which works ok, my only problem is that it also saves the excel sheet as the new PDF file name, how do I stop this ? (I still need the code to generate the PDF file names as cell E6 and the date).

Sub saveasPDF()

Dim fName As String
fName = Range("e6").Value

ActiveWorkbook.SaveAs Filename:=(fName) & Format(Date, "ddmmmyyyy")
ActiveSheet.PrintOut copies:=1, ActivePrinter:="Adobe PDF"

End Sub

Thanks for any tips