Cannot get code to save file as PDF - get Run-time error '1004'

[Hazelwood]

<style type="text/css">p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #000000 ; background-color: #ffffff }p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #008f00 ; background-color: #ffffff }p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; background-color: #ffffff ; min-height: 13.0px}p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #011993 ; background-color: #ffffff }span.s1 {color: #011993 }</style>I copied this code from your website and modified the file name only; it worked yesterday and today it won't work??



Public Sub CreateReceipt()
'
' create a pdf file
'




Sheets("Receipt Template 2018").Select
<style type="text/css">p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #000000 ; background-color: #ffffff }</style>

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="/Users/Documents/OLOA/Member List and Payments/OLOA Membership Receipt.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
From:=1, _
To:=1, _
OpenAfterPublish:=True




End Sub

 

[shg]

The path must exist when that line executes -- it won't create a directory.

And the path separator should be a backslash rather than a forward slash, but I think Windows tolerates that.