Cell double click to change cell colour

[trevolly]

Hey all,

I'm wondering if anyone can help with a quick query?

Im currently setting up some vba that runs when you double click in a cell, changing the white background to green and then if you double click again it goes back to white. The only thing is that the "green" is v bright and I'd like it to be the third green down (from the top) in the default colour pallet. I've used a vba to identify the colour coding as "15" but when I replace the "vbGreen" in the coding it isn't the same colour (going black)

The coding is as....

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Time stamp
If Not Intersect(Target, Range("D3")) Is Nothing Then
Cancel = True
Target.Value = Now()
End If
'colour click
If Not Intersect(Target, Range("g25, G27,G29,G31,G33,G35,G37,G39,G41,G46,G48,G50,G52,G54,G56,G58")) Is Nothing Then
Cancel = True
Target.Interior.Color = IIf(Target.Interior.Color = vbWhite, vbGreen, vbWhite)
End If
End Sub

Thanks all

 

[mumps]

Try:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    'Time stamp
    If Not Intersect(Target, Range("D3")) Is Nothing Then
        Cancel = True
        Target.Value = Now()
    End If
    'colour click
    If Not Intersect(Target, Range("g25, G27,G29,G31,G33,G35,G37,G39,G41,G46,G48,G50,G52,G54,G56,G58")) Is Nothing Then
        Cancel = True
        Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = xlNone, 43, xlNone)
    End If
End Sub

 

[trevolly]

Try:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    'Time stamp
    If Not Intersect(Target, Range("D3")) Is Nothing Then
        Cancel = True
        Target.Value = Now()
    End If
    'colour click
    If Not Intersect(Target, Range("g25, G27,G29,G31,G33,G35,G37,G39,G41,G46,G48,G50,G52,G54,G56,G58")) Is Nothing Then
        Cancel = True
        Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = xlNone, 43, xlNone)
    End If
End Sub

Thats a better colour and works! Thank you v much

 

[mumps]

You are very welcome.