ActiveWorkbook.Colors (Trying to store value based on data in cells

Just playing around (more learning)

I wrote this simple macro

Sub Button1_Click()
    Dim ColorValue As String

    ColorValue = "RGB(" & Worksheets("Options").Range("H18").Value & ")"


        If ActiveCell = Worksheets("Options").Range("F3") Then
        ActiveWorkbook.Colors(1) = ColorValue
        MsgBox ColorValue
Else
End If
End Sub

I put the MsgBox to make sure the code for the variable ColorValue was right and it is indeed returning a RGB(#, #, #)
However the color is not being set. Does it have to do with variable types (String, etc) ?

All this does is allow the user to enter an RGB value in H18 like 255,255,0 and it should look at the active cell, in this case F3 (F3 has a value of 1) so it would try to set the RGB value to the colors(1)

If I just use ActiveWorkbook.COlors(1) = RGB (255,255,255) in the macro, that does work..it's just this line that doesn't appear to be working

ActiveWorkbook.Colors(1) = ColorValue

I've tried two days of googling and messing with it and I can't figure out why it won't work. It doesn't throw errors, it just doesn't set the color value like it should. Thanks in advance.


The only thing I can think of is that maybe its sending the quotes with ColorValue so it's putting in "RGB (#, #, #)" instead of without the quotes? if so..how to correct?