RANGE(\"A7\").SELECT ' ANY CELL ON THE TOP OF YOUR HEADING
SELECTION.AUTOFILTER ' ADDS AUTO FILTER
SELECTION.AUTOFILTER FIELD:=1, CRITERIA1:=\"XYZ\" ' SELECTS THE
CRITIRIA I.E 1= FIRST COLUMN. XYZ=WHAT YOU WANT TO FILTER IT BY
SELECTION.CURRENTREGION.SELECT ' SELECTS THE RESULTS
SELECTION.COPY ' COPYS THE RESULTS
WORKBOOKS.ADD ' ADDS WORKBOOK
ACTIVESHEET.PASTE ' PASTES THE RESULTS
APPLICATION.CUTCOPYMODE = FALSE ' TURNS OFF THE COPY FEATURE


Hope that helps let me know if you have any questions


--
funkymonkUK
------------------------------------------------------------------------
funkymonkUK's Profile: http://www.excelforum.com/member.php...o&userid=18135
View this thread: http://www.excelforum.com/showthread...hreadid=516151