Excluding one page in a macro
Thank you!!
"Charles Chickering" wrote:
Brad, try this:
Sub TestSelect()
Dim sh As Object
Dim shAr() As String
Dim cnt As Long
ReDim shAr(0 To ActiveWorkbook.Sheets.Count - 2)
cnt = 0
For Each sh In ActiveWorkbook.Sheets
If sh.Name < "Sheet2" Then
shAr(cnt) = sh.Name
cnt = cnt + 1
End If
Next
Sheets(shAr).Select
End Sub
--
Charles Chickering
"A good example is twice the value of good advice."
"Brad" wrote:
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.
|