seems to me you look for ClearContents instead of deleting cells. use
this macro

Sub sth()
Dim cell As Range

For Each cell In Selection
If cell.Value < 1000 Then
cell.ClearContents
End If
Next cell


End Sub


On 14 Sty, 14:17, PointerMan
wrote:
I want to select a large range of cells and delete the cells that have a
value less than 100. *Any suggestions?