This is part of a larger code to find column numbers of matching headings and deleting such columns.
Dim DateFind As Range, DateCol As Long
Set DateFind = Sheet1.Rows(1).Find(What:="Date", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext...