you cant to filter by color , excel not support in this.you must create private function then use it for fillterb2 = bcolor(a2) etc....Function bColor(r As Range) As IntegerbColor = r.Interior.ColorIndexEnd Function