Hi
I'm getting Compile error: Expected variable or procedure, not module from the following 2 x codes
Sub FilterOutZeros()
Dim lngCounter As Long
Dim arrSheets
Dim arrColumns
arrSheets = Array("BS0", "BS1", "BS2", "BS3", "BS3a", "BS4", "BS6", "BS7", "BS7a", _
"BS8", "BS9", "BS10", "BS10a", "BS12", "BS13", "BS14", "IS0", "IS1", "IS4", _
"IS6", "IS7", "IS8", "IS8a", "IS8b", "IS9", "IS10")
arrColumns = Array("D:D", "D:D", "D:D", "D:D", "D:D", "B:B", "D:D", "D:D", "D:D", _
"D:D", "D:D", "D:D", "D:D", "D:D", "D:D", "D:D", "D:D", "D:D", "D:D", _
"E:E", "D:D", "D:D", "D:D", "D:D", "D:D", "B:B")
If UBound(arrSheets) <> UBound(arrColumns) Then
MsgBox "Please adjust the number of sheets as well as the number of Columns"
Exit Sub
End If
For lngCounter = LBound(arrSheets) To UBound(arrSheets)
With Sheets(arrSheets(lngCounter))
If .AutoFilterMode Then
.Columns(arrColumns(lngCounter)).Hidden = False
.Range(arrColumns(lngCounter)).AutoFilter
.Columns(arrColumns(lngCounter)).Hidden = True
Else
.Columns(arrColumns(lngCounter)).Hidden = False
.Range(arrColumns(lngCounter)).AutoFilter Field:=1, Criteria1:="="
.Columns(arrColumns(lngCounter)).Hidden = True
End If
End With
Next lngCounter
End Sub
Sub SaveAsPDF()
Call FilterOutZeros
Dim vFilename As Variant
vFilename = Application.GetSaveAsFilename(fileFilter:="PDF Files (*.pdf), *.pdf")
Sheets(Array("BS0", "BS1", "BS2", "BS3", "BS3a", "BS4", "BS5", "BS6", "BS7", "BS7a", _
"BS8", "BS9", "BS10", "BS10a", "BS12", "BS13", "BS14", "IS0", "IS1", "IS4", "IS6", "IS7", _
"IS8", "IS8a", "IS8b", "IS9", "IS10")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
vFilename, Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
What is causing the error?
and
How do I solve this?
Many thanks!
Bookmarks