This macro works great for me for one name but I would like to modify it to allow for additional names to be added.
Sub Cdelete()
With ActiveSheet
.AutoFilterMode = False
With Range("d13", Range("d" & Rows.Count).End(x1Up))
.AutoFilter 1, "*NAME*"
On...