Thanks Garry!

On Friday, May 6, 2011 2:18:31 PM UTC-6, GS wrote:
Also, I forgot to backspace out the dot when I pasted
'RngToFilter.EntireColumn' in your 'With wksSource' construct. So these
2 lines should read...

RngToFilter.EntireColumn.AutoFilter Field:=1, Criteria1:="Y"
and...
RngToFilter.EntireColumn.AutoFilter

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc