Try

Dim WS As Worksheet
Set WS = ActiveSheet
WS.UsedRange.AutoFilter
WS.UsedRange.AutoFilter Field:=ActiveCell.Column,
Criteria1:=ActiveCell.Value


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"QuickLearner"
wrote
in message
news:QuickLearner.2a2vkk_1151440557.4363@excelforu m-nospam.com...

Is it possible to have a column of multiple values and by
clicking in
the cell, it filters on that value?


--
QuickLearner
------------------------------------------------------------------------
QuickLearner's Profile:
http://www.excelforum.com/member.php...o&userid=35483
View this thread:
http://www.excelforum.com/showthread...hreadid=556224