How to make this code change the font colour to white if black cell colour is chosen

[Badino]

Hi,

Can someone tell me what to put in this code so that if a user selects 0 (Black) then make the font white (0) as my default colour is black on my Excel spreadsheet.

Private Type CHOOSECOLOUR 
lStructSize As Long 
hwndOwner As Long 
Hinstance As Long 
rgbResult As Long 
lpCustColors As String 
flags As Long 
lCustData As Long 
lpfnHook As Long 
lpTemplateName As String 
End Type 
 
Declare Function ChooseColorA _ 
Lib "Comdlg32" ( _ 
lpChooseColor As CHOOSECOLOUR) _ 
As Long 
Declare Function FindWindowA _ 
Lib "User32" ( _ 
ByVal lpClassName As Any, _ 
ByVal lpWindowName As String) _ 
As Long 
 
Function SelectColour(Code_RGB) As Boolean 
Dim CColor As CHOOSECOLOUR 
Dim CustColors As String * 16 
With CColor 
.lStructSize = 36 
.hwndOwner = FindWindowA(0&, Application.Caption) 
.lpCustColors = CustColors 
.flags = 2 
End With 
If ChooseColorA(CColor) = 0 Then Exit Function 
Code_RGB = CColor.rgbResult 
SelectColour = True 
End Function 
 
Public Function RGBRed(RGBCol As Long) As Integer 
'// Return the Red component from an RGB Color 
RGBRed = RGBCol And &HFF 
End Function 
 
Public Function RGBGreen(RGBCol As Long) As Integer 
'// Return the Green component from an RGB Colour 
RGBGreen = ((RGBCol And &H100FF00) / &H100) 
End Function 
 
Public Function RGBBlue(RGBCol As Long) As Integer 
'// Return the Blue component from an RGB Colour 
RGBBlue = (RGBCol And &HFF0000) / &H10000 
End Function 
 
Sub Theme() 
 
If Sheets("Tasks").ProtectContents = True Then 
Sheets("Tasks").Unprotect ("*******") 
End If 
If Sheets("Stats").ProtectContents = True Then 
Sheets("Stats").Unprotect ("*******") 
End If 
If Sheets("User Guides").ProtectContents = True Then 
Sheets("User Guides").Unprotect ("*******") 
End If 
'If Sheets("Stats").ProtectContents = True Then 
Sheets("Stats").Unprotect ("*******") 
'End If 
 
MsgBox "Please select a new heading colour using the popup colour selector and then press OK.", 64, "Change your heading colour." 
Dim Code_RGB As Long 
Dim myRange1 As Range, myRange2 As Range, myRange3 As Range, myRange4 As Range, myRange5 As Range, myRange6 As Range, myRange7 As Range 
If Not SelectColour(Code_RGB) Then Exit Sub 
Set myRange1 = ActiveSheet.Range("A4,A5,A6,B6,C1,C6,D6,E1,E6,F1,F6,G1,G6,H1,H2,H3,H4,H5,H6,I6,J6,K2,K3,K4,K5,K6,L6,M6,N2,N3,N4,N5,N6,O6,P6,Q1,Q2,Q4,Q5,Q6,R1,R6,S1,S6,T6,U6,V6") 
Set myRange2 = Worksheets("Stats").Range("A2,A12,B2,B3,B4,B5,B7,B12,C7,C12,D7,D12,E7,E8,E9,E10,E11,E12,F12,(G12:G214)") 
Set myRange7 = Worksheets("User Guides").Range("A1,A2,B2") 
If ActiveSheet.ProtectContents = True Then 
ActiveSheet.Unprotect ("*******") 
End If 
myRange1.Interior.Color = Code_RGB 
myRange2.Interior.Color = Code_RGB 
 
Set myRange1 = Nothing 
Set myRange2 = Nothing 
Set myRange6 = Nothing 
Set myRange7 = Nothing 
 
If Sheets("Tasks").ProtectContents = False Then 
Sheets("Tasks").Protect ("*******") 
End If 
If Sheets("Stats").ProtectContents = False Then 
Sheets("Stats").Protect ("*******") 
End If 
If Sheets("User Guides").ProtectContents = False Then 
Sheets("User Guides").Protect ("*******") 
End If 
'If Sheets("Stats").ProtectContents = True Then 
'Sheets("Stats").Unprotect ("*******") 
'End If 
 
ActiveSheet.Protect ("*******") 
 
End Sub 
 

Hope someone can help me on this little problem as in the test people were choosing black, cuz it's cool..