AutoFilter VBA - Causes Excel To Freeze

This code does not work the way I expect it to. Presently it just causes Excel to freeze.

The idea is that if you double-click a cell within the CurrentRegion (starting at A1) that AutoFilters will be applied and the selection criteria will be the target value:

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MyRng As Range
Dim MyCol As Long
Set MyRng = ActiveSheet.Range("A1").CurrentRegion
MyCol = Target.Column
If Not Application.Intersect(Target, MyRng) Is Nothing Then
ActiveSheet.AutoFilterMode = False
MyRng.AutoFilter Field:=MyCol, Criteria1:=Target.Value, Operator:=xlFilterValues
Cancel = True
End If
End Sub