‘ Iterate through the HistoryListFor i2 = 1 To item.Versions.Count objDocVersion = item.Versions.ItemByIndex(i2) For i = 1 To objDocVersion.HistoryList.Count objDocHistory = objDocVersion.HistoryList.ItemByIndex(i) ' Define the properties for each DocumentHistory object in list 'Output list here Next iNext i2