Macro to save worksheet as .pdf has stopped working, unsure of cause

[cravincullen]

Hello,

I've been using a macro to save unique invoices as pdf files to distribute to vendors. My macro used to work, but now does not. After attempting to use macro by hitting the button I've created, I receive the error

'Microsoft Visual Basic

400'

I'm unsure of how I've fouled what useful code was there, but have attached screen shots that will hopefully be helpful. As you can see, I'm using a Mac, and Excel Mac 2011 14.5.1... unsure if that is of any consequence. The file path should be correct, I have not moved that file or edited permissions or anything of the sort.

Macro in text for reference:
Sub SavePDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="Macintosh HD:Users:Cullenation:Desktop:CravinVapes - SHAWNS:" & _
ActiveSheet.Range("A8").Value & ActiveSheet.Range("E4").Value & ".pdf", _
OpenAfterPublish:=True
End Sub

While I'm at it, a pop-up with an option to print to a local printer would be divine.

 

[bEErad]

Try changing the format of cells A8 and E4 to Text, or use the method Range("E4").Text instead of Range.Value

Here is a decent thread on the subject: http://www.mrexcel.com/forum/excel-questions/563066-help-visual-basic-applications-400-error-2.html

 

[bEErad]

Also, might want to break up the problem to make it easier to troubleshoot, this way you can step through the program and see in a watch window what the text of the filename is just before it executes ExportAsFixedFormat

[I]Sub SavePDF()[INDENT]Dim fName as String

fName = "Macintosh HD:Users:Cullenation:Desktop:CravinVapes - SHAWNS:" & _[/INDENT]
[INDENT=2]ActiveSheet.Range("A8").Value & ActiveSheet.Range("E4").Value & ".pdf"[/INDENT]
[INDENT][I]
ActiveSheet.ExportAsFixedFormat _
[/I][/INDENT]
[INDENT=2][I][I]Type:=xlTypePDF, _
[/I][/I][/INDENT]
[INDENT=2][I][I]Filename:=fName, _[/I][/I][/INDENT]
[INDENT=2][I][I][I][I]OpenAfterPublish:=True
[/I][/I][/I][/I][/INDENT]
[/I][I][I][I][I][I][I]End Sub[/I][/I][/I][/I][/I][/I]