HI BigBas,

Realised your fomula does not work as well as I thought because it also changes the column header and any visible row on the column, would you know how to change it so that it only changes the those cells?

ActiveSheet.Range(Selection.Address).AutoFilter Field:=15, Criteria1:= _
"Ultimate Parent Company Kingdom of the Netherlands"
Intersect(ActiveSheet.UsedRange, Columns(15)).Value = "ABN NV"

Thank you.