Chris,

If you run a macro with loops that big, it will take a huge sum of
time. (up to 4883^2 loops) I'd recommend creating a counter column
that will retain the original positioning, then sorting on ID, then
coloring your cells, then sorting back on the counter.

Steve