new name

[deanl33069]

I have this code to save a file as pdf.
Private Sub CommandButton1_Click()


ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
filename:="C:\release\testpage2.pdf", _
OpenAfterPublish:=False, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
Quality:=xlQualityStandard, _
From:=1, To:=2
End Sub
how can i save as cell "c2"

 

[theBardd]

Is C2 on that sheet?

[LEFT][COLOR=#333333][FONT=Verdana]ActiveSheet.ExportAsFixedFormat _[/FONT][/COLOR]
[COLOR=#333333][FONT=Verdana]    Type:=xlTypePDF, _[/FONT][/COLOR]
[COLOR=#333333][FONT=Verdana]    filename:=Activesheet.Range("C2").Value, _[/FONT][/COLOR]
[COLOR=#333333][FONT=Verdana]    OpenAfterPublish:=False, _[/FONT][/COLOR]
[COLOR=#333333][FONT=Verdana]    IncludeDocProperties:=True, _[/FONT][/COLOR]
[COLOR=#333333][FONT=Verdana]    IgnorePrintAreas:=False, _[/FONT][/COLOR]
[COLOR=#333333][FONT=Verdana]    Quality:=xlQualityStandard, _[/FONT][/COLOR]
[COLOR=#333333][FONT=Verdana]    From:=1, To:=2[/FONT][/COLOR]
[COLOR=#333333][FONT=Verdana]End Sub[/FONT][/COLOR][/LEFT]

 

[deanl33069]

c2 is on the worksheet I want to export as pdf using the the file name from c2 .pdf

 

[theBardd]

[FONT=Verdana][COLOR=#333333]ActiveSheet.ExportAsFixedFormat _[/COLOR][/FONT][LEFT][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][/LEFT][COLOR=#333333][LEFT][COLOR=#333333][FONT=monospace][FONT=Verdana]    Type:=xlTypePDF, _[/FONT][/FONT][/COLOR][/LEFT][/COLOR][LEFT][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][/LEFT][COLOR=#333333][LEFT][COLOR=#333333][FONT=monospace][FONT=Verdana]    filename:=Activesheet.Range("C2").Value, & ".pdf" _[/FONT][/FONT][/COLOR][/LEFT][/COLOR][LEFT][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][/LEFT][COLOR=#333333][LEFT][COLOR=#333333][FONT=monospace][FONT=Verdana]    OpenAfterPublish:=False, _[/FONT][/FONT][/COLOR][/LEFT][/COLOR][LEFT][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][/LEFT][COLOR=#333333][LEFT][COLOR=#333333][FONT=monospace][FONT=Verdana]    IncludeDocProperties:=True, _[/FONT][/FONT][/COLOR][/LEFT][/COLOR][LEFT][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][/LEFT][COLOR=#333333][LEFT][COLOR=#333333][FONT=monospace][FONT=Verdana]    IgnorePrintAreas:=False, _[/FONT][/FONT][/COLOR][/LEFT][/COLOR][LEFT][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][/LEFT][COLOR=#333333][LEFT][COLOR=#333333][FONT=monospace][FONT=Verdana]    Quality:=xlQualityStandard, _[/FONT][/FONT][/COLOR][/LEFT][/COLOR][LEFT][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][/LEFT][COLOR=#333333][LEFT][COLOR=#333333][FONT=monospace][FONT=Verdana]    From:=1, To:=2[/FONT][/FONT][/COLOR][/LEFT][/COLOR][LEFT][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][/LEFT][COLOR=#333333][LEFT][COLOR=#333333][FONT=monospace][FONT=Verdana]End Sub[/FONT][/FONT][/COLOR][/LEFT][/COLOR]

 

[deanl33069]

Ty But i get

https://1drv.ms/u/s!AqrVlEBa2rE1iVa2DRBEHzZn0zRy