vba save as pdf to specific folder with 3 cells value file name

[denimfact]

Hellow every one, i'm new in vba and my english is not so good. i have the following code to save as pdf with 1 cell value as file name.
I want to save as pdf with 3 cells value as file name. this code is best for my need if could edited for save as 3 cells value B5, D5 and E5 as file name.



Sub RoundedRectangle1_Click()


On Error Resume Next
MkDir "C:\MYRECIPE\"

Sheet3.Range("A1:F49").ExportAsFixedFormat xlTypePDF, _
Filename:="C:\MYRECIPE\" & Sheet1.Range("E5").Value, openafterpublish:=True

Sheet1.Range("E5") = Sheet1.Range("E5").Value + 1


End Sub

 

[Micron]

Maybe

Sub RoundedRectangle1_Click()
Dim strFile As String

On Error Resume Next
MkDir "C:\MYRECIPE\"
strFile = Sheet1.Range("B5") & Sheet1.Range("D5") & Sheet1.Range("E5")

Sheet3.Range("A1:F49").ExportAsFixedFormat xlTypePDF, _
Filename:="C:\MYRECIPE\" & strFileName,openafterpublish:=True

Sheet1.Range("E5") = Sheet1.Range("E5")+ 1

End Sub

Not sure why you'd have Resume Next as an error handler. If Dir fails you don't want to attempt the export or modify sheet 1? If the export fails, sheet 1 will still be modified.