Hi ,
i am trying to save a multiple sheets from a workbook on to pdf in the same folder where excel workbook is saved, file name with specific cell value
below is the code i am using & i am getting, Application-defined or object-defined error, can someone please help on this, i know i am missing something.
Sheets(Array("Title", "Summary 1826", "Summary 1811", "Summary 1826 Entity ccy", "Summary 1811 Entity ccy")).Select
Sheets("Title").Activate
'ChDir ActiveWorkbook.Path & ""
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & " \ " & Range("D23") & " - " & Range("I22").Value, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
i am trying to save a multiple sheets from a workbook on to pdf in the same folder where excel workbook is saved, file name with specific cell value
below is the code i am using & i am getting, Application-defined or object-defined error, can someone please help on this, i know i am missing something.
Sheets(Array("Title", "Summary 1826", "Summary 1811", "Summary 1826 Entity ccy", "Summary 1811 Entity ccy")).Select
Sheets("Title").Activate
'ChDir ActiveWorkbook.Path & ""
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & " \ " & Range("D23") & " - " & Range("I22").Value, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True