You're Welcome

To make is faster add this to the beginning of the macro.
Application.ScreenUpdating = False