Cells.Find(What:="09-Dec-16",
this searches for a text string and may not match a date value, even though they look the same

I need to put some formula to extract Column number.
activecell.column