Sub DeleteDateInA()

FirstRow = 2 'Headings in row 1
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For r = LastRow To FirstRow Step -1
If Range("A" & r).Value = "Date" Then ' Date is the only word in the
cell
'If Range("A" & r).Value like "*Date*" Then ' * Allow text before and
after Date
Rows(r).Delete
End If
Next
End Sub

Hopes this helps

---
Regards,
Per

"Workbook" skrev i meddelelsen
...
Any ideas about how to create a code so that every time the word €œDate€�
appears in a cell in column A, the row that €œDate€� exists in will be
deleted?