shrivallabha, thank you very much! That's very helpful! And thank you, Paul! I'll dig around through that code, too!
So I can just remove the other modules then?
I think I'm going to rewrite so that it just changes according to that box, instead of having it copy to a cell and then read the cell, that seems like a wasted step.

Also, I'll need to find codes for how to record this data. I'm figuring I can just add a line under each of the color changes saying something like

ElseIf Range("hand!P3").Value = 4 Then
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(153, 0, 0)
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
record "6" in cell A3...

and so on...