I've tried some of the obvious online solutions such as "Activesheet.ShowAllData,"
but I can't get anything to work. If [BT5] is already in filter mode then the code below works very nicely. But if it isn't, then I need something that will deal with the two other possibilities:
AutoFilter is not on.
AutoFilter is active on another range.
Application.ScreenUpdating = False
If [BT3] = "" Then
[BT5].AutoFilter Field:=1, Criteria1:="<>"
[BT3] = 1
[BT5].AutoFilter Field:=1, Criteria1:="="
[BT3] = ""
Application.ScreenUpdating = True