snb, I can't get that code to work. It says error 9, subject out of range and highlights

 sh.ListObjects("Table6").Range.AutoFilter 1, Criteria1:=c01