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
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