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!