【VBA】オートフィルタ解除＆非表示を表示する

Public Function ResetFilterMode(ByVal ws As Worksheet)
    On Error GoTo ErrHdl
    With ws
        'オートフィルタがあれば解除する
        If .FilterMode Then .ShowAllData

        'グループ化されてれば行列の表示をする
        With .Outline.ShowLevels 
            ColumnLevels:=5
            RowLevels:=5
        End With

        '隠れている行列を表示する
        With .Cells
            .EntireColumn.Hidden = False
            .EntireRow.Hidden = False
        End With
    End With
    Exit Function

ErrHdl:
    Call MsgError 'エラー処理
End Function