Excel VBA: filter spreadsheet to the Value of cell being clicked on

[2Took]

Trying to get XL filter spreadsheet to the Value of cell being clicked on... Part of BeforeRightClick event.
Filters are in row 10.

Getting this error on below code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If ActiveCell.Row > 10 Then
Cancel = True

    With ActiveSheet.UsedRange
        On Error Resume Next
            ActiveSheet.ShowAllData
        On Error GoTo 0
    
        .AutoFilter Field:=Range(ActiveCell).Column, Criteria1:=ActiveCell.Value
    End With
End If

End Sub

 

[JoeMo]

Try replacing:
Range(ActiveCell).Column,
with:
ActiveCell.Column,