EXCEL VBAでカラーのセットをセット

Excel VBAでよく使うカラーのセットをセットする

VBAから色をセットする際にRGB関数を使う。
それほどバリエーションもないし、カラーテーマ的に
セットで書いておければ便利かなと。
ColorIndexでは満足できない人には暇つぶしにセットを作ると
きっと自己満足が得らること請け合い(適当)。

Function func_get_rgb_value(ByVal s_colorname As String) As Long
	Dim f_dict As Object

	Set f_dict = CreateObject("Scripting.Dicionary")

		f_dict("black") = RGB(0, 43, 54)
		f_dict("yellow") = RGB(181, 137, 0)
		f_dict("red") = RGB(220, 50, 47)
		f_dict("blue") = RGB(38, 139, 210)
		f_dict("green") = RGB(133, 153, 0)

	get_rgb_value = f_dict(s_colorname)

	Set f_dict = Nothing	
End Function

Sub test_set_color()

	With ThisWorkbook.ActiveSheet.Cells(1, 1)
		.Font.Color = func_get_rgb_value("black")
		.Interior.Color = func_get_rgb_value("green")
	End With

End Sub

思いついたとこ

VBEでインテリセンスに色のキーワードが出ると楽なんだけど
今の方法だと出ない。
関数側にConstとかで登録するほうがいいのか。
でもどう書いたらいいかパッと思いつかない。