Maybe that:
Option Explicit
Dim MyColor(1 To 100) As Long
' ----------------------------
Sub Demo00()
MyColor(56) = RGB(163, 193, 173)
End Sub
' ----------------------------
Sub Demo01()
Selection.Font.Color = MyColor(56)
End Sub
--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Vista Small Business, Office XP