Creating PDF with vba code

[asyamonique]

Good Day,
How can I alter below code instead of ActiveSheet.Name , I want spesific cell text like below ;
Sheets("info").Range("c35")

Thanks

Dim wsA     As Worksheet
Dim strFile, myfile As String
On Error Resume Next
wsA.Activate
    strFile = "\\172.16.23.181\lg folder\ROSTERS\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strFile & " " & [I][COLOR=rgb(184, 49, 47)][B]ActiveSheet.Name[/B][/COLOR][/I] & " " & Format(Date, "mmmm"), _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True

 

[abdelfattah]

maybe like this
change this

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

to this

Sheets("info").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

and this

strFile & " " & [I][COLOR=rgb(184, 49, 47)][B]ActiveSheet.Name[/B][/COLOR][/I] & " " & Format(Date, "mmmm"), _

to

strFile & " " & Sheets("info").Name& " " & Sheets("info").Range("c35")  & Format(Date, "mmmm"), _

 

[asyamonique]

Many thanks.