Gasp! You are an Access VBA Savant!
Works like a charm. I only added an If Then statement to differentiate backcolor and forecolor for non-colors (white or raw).
With con
If color = 0 Then
.ForeColor = RGB(0, 0, 0)
.BackColor = RGB(255, 255, 255)
Else...