asyamonique
Well-known Member
- Joined
- Jan 29, 2008
- Messages
- 1,280
- Office Version
- 2013
- Platform
- Windows
Good Day,
How can I alter below code instead of ActiveSheet.Name , I want spesific cell text like below ;
Sheets("info").Range("c35")
Thanks
How can I alter below code instead of ActiveSheet.Name , I want spesific cell text like below ;
Sheets("info").Range("c35")
Thanks
VBA Code:
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