テーブル列のオートフィルター 空白/空白以外を切り替える

Sub テーブルのオートフィルター切り替え()

    Const COL As Long = 10 'フィルターを設定する列番号
    Dim sCrit As String
    sCrit = "=" '初期値(空白)
    With ActiveSheet.ListObjects("テーブル1")
        '現在のオートフィルター状態を判定
        With .AutoFilter.Filters(COL)
            If .On Then
                Select Case .Criterial
                Case "="
                    sCrit = "<>"  '空白→空白以外
                Case "<>"
                    sCrit = ""  '空白以外→すべて
                End Select
            End If
        End With
        If sCrit = "" Then
            .Range.AutoFilter Field:=COL
        Else
            .Range.AutoFilter Field:=COL, Criterial:=sCrit
        End If
    End With

End Sub