Public Sub Create_PDF()
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.Path & "\Cashing Up Week End " & Format(Range("N4").Value, "YYYY-MM-DD") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub