You could create a custom function. This will get you started but it is
not perfect

Function FilterSelection(Column As Integer)

With Worksheets("sheet1")
If .AutoFilterMode Then
With .AutoFilter.Filters(Column)
If .On Then FilterSelection = .Criteria1
End With
End If
End With
FilterSelection = Right(FilterSelection, Len(FilterSelection) - 1)

End Function

You currently have to select which column the filter is in
=filterselection(2) for the second column. Also you have to specify
the sheet name in the function (not ideal). Finally when the pivot
table changes, the function doesn't refresh, but this could be
addressed with another macro

Matt


--
Mallycat
------------------------------------------------------------------------
Mallycat's Profile: http://www.excelforum.com/member.php...o&userid=35514
View this thread: http://www.excelforum.com/showthread...hreadid=561280