Test() Dim Rng As Range Dim Cell As Range Dim Index As Integer Dim Limit As Integer Dim Max As Integer Index = 27 Limit = 25 Max = Index + Limit Set Rng = Range("E" Index ":E" Max) For Each Cell In Rng With Cell Application.ScreenUpdating = False Dim d As Object, str$ ...