changing cell color with double click

[vworm1097]

I am absolutely new at this and can't seem to find what I need, any help would be greatly appreciated...

I have a survey type form with several questions in column A and a range of ratings (1-5) in cells B-F. I want the end user to choose one of the ratings based on the question and when they click on a cell (B-F), I want the cell to change colors (both the cell fill and font) so that it stands out and then when the cell is clicked on again, say they change their mind or wanted to give it a different rating, the cell returns to the original color (both the cell fill and font). So far what I have found will do this when the cell is clicked on but when it is clicked on again it looses the original cell color. Even when the cell is no fill (white) with grey font as the original colors, when the cell is clicked on and then clicked on again it does not keep the original colors and it is obvious that the end used clicked on a cell then changed their mind and clicked on a different cell.

I think this would be pretty basic stuff but I am at a loss.
Thank you.

 

[kevin9999]

Put the following code in the code window of the sheet where you have the 'form'. You'll need to change the colors/fonts to suit. The code assumes that the original cell fill color is vbWhite.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
    If Not Intersect(Range("B:F"), Target) Is Nothing Then
        With ActiveCell
            If ActiveCell.Interior.Color = vbWhite Then
                .Interior.Color = vbBlue
                .Font.Color = vbWhite
                .Font.Bold = True
            Else
                .Interior.Color = vbWhite
                .Font.ThemeColor = xlThemeColorDark1
                .Font.TintAndShade = -0.4
                .Font.Bold = False
            End If
        End With
        cancel = True
    End If
End Sub