Hi Dennis, if you move the screenupdating line right to the end as below the code runs much quicker, for example yesterdays results completes in 20 seconds.



TransposeRaceCodes
Application.ScreenUpdating = True
End Sub