You might try comparing ReceivedTime with CDate("2025-06-06"), switch to SenderEmailAddress instead of SenderName, guard non‑mail items via If TypeOf Item Is MailItem, and map your split body chunks straight into Cells(r,4) for cleaner output.