you can try:


[vba]
if instr(1,Range("O_BCDU20_CR_Cay_1") ,"Man2",vbTextCompare) > 0 then
Sheets("O_BCDU").Range("I:I").AutoFilter Field:=1, Criteria1:="Man2"
Sheets("O_BCDU").Range("O_BCDU20_CR_Cay_1").SpecialCells(xlCellTypeVisible) .Value = "H"
end if
[/vba]