Labels:crt screen | monitor | web site OCR: test xls Module1 [Code] General Convert date Sub Convert date) 'Check the act ive cell: if it. empt xit loop DO Until IsEmpty(ActiveCell) Extract the first two Vr Fix Act ivecell 0001 Extract the second two digits mo Right FixAct iveCell (yr 10000 0.011 Extract the last two digits dy ActiveCell (Fix (ActiveCell 0 .011 1001 Put the result 1r. the original cell 1n Excel date format Act ivecell Value DateSerial (yr, mo dy) Move doun one row to the next cell Act iveCell Offset(i, 0.Select Return to top of loop Loop End Sub Gener empty exit didits down
