I've actually managed to com up with something that works! (it did take
me quite a few hours in the end, despite these post -timestamps :)


addr= Replace(Cells(1, ActiveCell.Column).Address, "$", "")

date_row = Application.Match(Range(addr),
Worksheets("data").Range("B:B"), 0)


If anyone knows a better option, please do reply - dates in excel do
seem to elude me!