@bakerman

Since we are working in VBA I'd prefer:

Code:
      sn(j, 2) = format(It.ReceivedTime, "dd-mm-yyyy")