VBA オートフィルターがランタイム エラー 1004 を返す

Question

下のオートフィルター行の何が間違っているのか、どなたか教えていただけませんか? 実行時エラー「1004」が発生します。

Sub filter()
    Dim rng_source As Range
    Set rng_source = ActiveSheet.Range("a1").CurrentRegion
    rng_source.AutoFilter
End Sub

Answer 1

このエラーは、セル内またはセルの「近く」に何も存在しないことを意味します。A1アクティブなシート内。