re-instate one line:should do it.EndTime = ThisWorkbook.Sheets("Scrubber").Range("D1").Value If TypeName(EndTime) = "String" Then EndTime = TimeValue(EndTime)
re-instate one line:should do it.EndTime = ThisWorkbook.Sheets("Scrubber").Range("D1").Value If TypeName(EndTime) = "String" Then EndTime = TimeValue(EndTime)
p45cal
Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.
Reply With Quote
