Thanks,

I am getting a runtime error on this lin

intWeeks = Int((arrValues(lngCurrRow, 13) - arrValues(lngCurrRow, 12)) / 7) - 1

Cant seem to get passed it