オートフィルターで問題が発生し、配列エラーが発生する可能性があります。

Question

ユーザ入力に基づいてautofilterでデータをフィルタリングしようとしています。ユーザはボックスをチェックすることができ、データはフィルタリングされるべきである。私はautofilterを使用する範囲を定義するのに問題があります。ここで

は、私は、現在実行しているコードです：

dim WholeSheetRange as Range  
'turn on autofilter if not on 
If Not ActiveSheet.FilterMode Then 
    ActiveSheet.Range("A1").AutoFilter 
End If 

Set WholeSheetRange = Range("A1:M" & LastRow(ActiveSheet)) 

If stn_DEN.Value = True Then 
    WholeSheetRange.AutoFilter Field:=4, Criteria1:="=DEN" 
ElseIf stn_EWR.Value = True Then 
    WholeSheetRange.AutoFilter Field:=4, Criteria1:="=EWR" 
ElseIf stn_IAD.Value = True Then 
    WholeSheetRange.AutoFilter Field:=4, Criteria1:="=IAD" 

End If 

これは、現在のアレイが期待されていること、エラーが生じています。

Answer 1

機能LASTROW（）が存在しないこのラインdowsで：

Set WholeSheetRange = Range("A1:M" & LastRow(ActiveSheet))