See the Attached which includes Jason's VBA solution: code is placed in the worksheet.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then Application.CalculateFull
End Sub
You need named range called "SELECTION" (already created) which is the Active Cell i.e the cell selected in column A. You can extend the filter list as required with no VBA change needed.
I have added Conditional Formatting to highlight selected filter.
I have also changed the size of the ranges in the formulae to columns A to Z and 100 rows.
=IFERROR(INDEX(Sheet1!$A$2:$Z$100,SMALL(IF(INDEX(Sheet1!$A$2:$Z$100,,MATCH(SELECTION,Sheet1!$A$1:$Z$1,0)+1)<>"",ROW($A$2:$A$100)-ROW($A$2)+1,""),ROWS($A$2:A2))),"")
The highlighted "SELECTION" is the named range so MATCH is done on the active (selected) cell in column A.
Bookmarks