ActiveCell.Offset(0,1).value = IsDate(ActiveCell.Offset(0,1).value ...

Tag » Activecell.offset(0 1).value