Thank you very much for the script. I pasted it into the workbook and
was able to get it working until the line .Columns
("IV:IV").AutoFilter. I get an run time error message at this point
and it goes no further. Is it a problem with the way I have it
setup? I looked in column IV and there are no X's in the column.