ok. thx for pointing me in the right direction Skip... I just needed to declare my datevalue.
Cells.Find(varList(3, x)).Activate
chCol = ActiveCell.Column
timesplit = Split(varList(4, x), "/")
timestart = Mid(timesplit(2), 8, 6)
datesplit = Split(varList(4, x), ":")
timematch =...