DatePicker does not allow to use table filters

[BiaMidori]

Hello, everyone!

I have been having problems with my DatePicker when I use filtres on my table. The DatePicker works just fine, but when I try to filter an error occurs. Does anybody know how to fix the problem? The problem is on .LinkedCell = Target.Address. I created the DatePicker using the Desing Mode.

(I tried to attach the excel to clarify, but I can't be able to do it, do know why maybe 'cause I am new here I have no permission yet to do it )


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  With ActiveSheet.DTPicker21
    .Height = 20
    .Width = 20
    .Visible = False
    If Not ActiveCell.ListObject Is Nothing Then
      If Not Intersect(Target, ActiveCell.ListObject.ListColumns(1).DataBodyRange) Is Nothing Then
      .Visible = True
      .Top = Target.Top
      .Left = Target.Offset(0, 1).Left
      .LinkedCell = Target.Address
    Else
      .Visible = False
    End If
    
   End If
End With