Thanks SamT for the code using HIDDEN.
I will be using it.


Thanks p45cal for the code using SEARCH and ISNUMBER.
I will be using it.


I searched the web and found usage of AdvancedFilter, which I have given below. It also filters SCHOOL, CoLLege and OfficE. Moreover it is faster.


Set rng = ActiveSheet.Range("D1:J" & Trim(Str(LstNumRow))) 'D-Names. E- Adrs1. F-Adrs2.G-Adrs3.H-City. I-State. J-Zip.


N1 -T10 has Filter Criteria with actual column headings of the source in Row N1.
Name - Adrs1 - Adrs2 - Adrs3 - Zip
*Ben* - *College* - - - 254365
*Ben* - *Office* - - - 254365
*Ben* - *School* - - - 254365
*Ben* - - *College* - - 254365
*Ben* - - *Office* - - 254365
*Ben* - - *School* - - 254365
*Ben* - - - *College* - 254365
*Ben* - - - *Office* - 254365
*Ben* - - - *School* - 254365


rng.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("N1:T10"), Unique:=False
Thanks for your valuable suggestions.
I have learnt new ideas. Appreciate your help.