G
Guest
I have to modify the following code to exclude one sheet out of 110 pages.
Is there an easy way to do this.
What I would be modifying would be the
Sheets(Array("Page 1", "Page 2", "Page 3")).Select
Sub Macro4()
Sheets(Array("Page 1", "Page 2", "Page 3")).Select
Sheets("Page 1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"V:\ACMP\Contract Summaries\Maximum Solutions II\EA version\" &
Range("inpdate1").Value & "\IM-006344_EA_" & Range("inpdate1").Value &
".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
Thanks in advance.
Is there an easy way to do this.
What I would be modifying would be the
Sheets(Array("Page 1", "Page 2", "Page 3")).Select
Sub Macro4()
Sheets(Array("Page 1", "Page 2", "Page 3")).Select
Sheets("Page 1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"V:\ACMP\Contract Summaries\Maximum Solutions II\EA version\" &
Range("inpdate1").Value & "\IM-006344_EA_" & Range("inpdate1").Value &
".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
Thanks in advance.