Data = 345
Set found = Columns("A").Find(what:=Data, LookIn:=xlValues, lookat:=xlWhole)
If Not found Is Nothing Then
found.Delete shift:=xlShiftUp
End If

"Neil" wrote:

How do I find a value (or values) in a range (column) and delte it /them when
found

All suggestions appreciated
--
Neil