Newbe please help convert to Pdf using current directory.

[gokuthemighty]

Hello I am new to excel and using windows & 64 bit and Excel 2013
For work we have to save in a file based on the month. The same lines of code work in a saveas macro but give me errors in every way I try them in a covert to pdf. Can anyone tell me what is wrong with this code? Thanks.


[Sub SaveAsPDF()


Dim str As String
str = ThisWorkbook.Path


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="str & "\" & "SW Patrol " & Format(DateAdd("d", -1, Date), "m-dd-YY").pdf", _
OpenAfterPublish:=True

End Sub]

 

[steve the fish]

You have you quotes a little mixed up.

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=str & "\" & "SW Patrol " & Format(DateAdd("d", -1, Date), "m-dd-YY") & ".pdf", OpenAfterPublish:=True

 

[gokuthemighty]

Thank you that fixed it. silly easy of course and now I know. I was copy and pasting from one code to another. The one I was copying pdf from had filename in quotes.