My bad. Here's the code now. It still is not running when a change is made
on the sheet. The code is located in Excel Objects, Sheet 2.

Private Sub WorkSheet_Change(ByVal Source As Range)
Source = Range("B3:B56")
Call CheckCellColor
End Sub