Sub farver()
'
' farver Macro
' Macro recorded 23-09-2005 by none
'

'
Selection.Font.ColorIndex = 3 'Rød
Selection.Font.ColorIndex = 10 'Grøn
Selection.Font.ColorIndex = 5 'Blå
Selection.Font.ColorIndex = 6 'Gul
Selection.Font.ColorIndex = 13 'Lilla
Selection.Font.ColorIndex = 7 'Lyserød
Selection.Font.ColorIndex = 1 'Sort

' Det er altså muligt at finde frem til de forskellige farvekoder ved at optage en makro hvor man formaterer med forskellige farver. Efterfølgende kan man så se farvekoderne i VBA koden som ovenfor.

End Sub