Go to the Data tab and click sort. Sub EGS_CVS_Sorting () Dim lr As Long, lr2 As Long, r As . Click Home tab > arrow under Sort & Filter, and then click Sort Oldest to Newest, or Sort Newest to Oldest. @leannejhThen your "dates" are, in fact, texts. }