K
Kirsty
I have written this to delete the row of cells within the selected range when
the value "Rock Breaking" is in a cell in the row.
It is however deleting the entire row.
How do I stop this?
Sub tmp3()
Dim rngOfData As Range
Dim Cell As Range
With Sheets("Daily Report")
Set rngOfData = .Range("DA20E29")
End With
For Each Cell In rngOfData
If Cell.Value = "Rock Breaking" Then
Cell.Row.Delete
End If
Next Cell
End Sub
the value "Rock Breaking" is in a cell in the row.
It is however deleting the entire row.
How do I stop this?
Sub tmp3()
Dim rngOfData As Range
Dim Cell As Range
With Sheets("Daily Report")
Set rngOfData = .Range("DA20E29")
End With
For Each Cell In rngOfData
If Cell.Value = "Rock Breaking" Then
Cell.Row.Delete
End If
Next Cell
End Sub