[vba] Sheets("O_BCDU").Range("I:I").AutoFilter Field:=1, Criteria1:="Man2"
Sheets("O_BCDU").Range("O_BCDU20_CR_Cay_1").SpecialCells(xlCellTypeVisible) .Value = "H"[/vba]

this code FILTERS on range I:I for Man2 then deletes all special cells.

i only want it to do this if Range("O_BCDU20_CR_Cay_1") contains "Man2"
if it does then

[vba] Sheets("O_BCDU").Range("I:I").AutoFilter Field:=1, Criteria1:="Man2"
Sheets("O_BCDU").Range("O_BCDU20_CR_Cay_1").SpecialCells(xlCellTypeVisible) .Value = "H"[/vba]

can anyone help?