VBA to Select Active Cell and use as filter

[SanjayGMusafir]

Hi Experts
I need to use value of active cell from current sheet as a filter on another sheet. I tried my hands on it but for sure I'm missing something...
The code I tried is here under
Please help
Thanks

Sub VisitsFilterCurrent()
'
' VisitsFilterCurrent Macro
'
    'Application.Calculate
    
    Dim x1 As Range
    
    Set x1 = ActiveSheet.ActiveCell.Select 'This seems to be the problem area
    
    Sheets("Visits").Select
    
    Call VisitsSortBack
    
    ActiveSheet.ListObjects("Visits").Range.AutoFilter Field:=1, Criteria1:=x1.Value
    Range("Visits[[#Headers],[QType]]").End(xlDown).Select
    
    On Error Resume Next
    Err.Clear
    
    ActiveSheet.ListObjects("Visits").ShowAutoFilterDropDown = False
    
    'ActiveWorkbook.Save
   
End Sub

 

[Alex Blakenburg]

Try changing that line to this:

Set x1 = ActiveCell

 

[SanjayGMusafir]

Try changing that line to this:

Set x1 = ActiveCell

Thanks Alex Blakenburg
It worked

 

[Alex Blakenburg]

You're welcome. ActiveCell is by definition selected and is assumed to be on the ActiveSheet