Hi Howard,

Am Thu, 23 Apr 2015 13:57:28 +0200 schrieb Claus Busch:

Therefore I copied the range to sheet2 and changed the headers to the
list header. You can also enter one ore more criterias to the empty
columns.

if you only want to filter by Part Number you can also change the
criteria range:
CriteriaRange:=Sheets("Sheet2").Range("A1:A54")


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional