Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("G6:I6,G7:I7,G8:I8,G9:I9,G11:I11,G17:I17,G19:I19,G20:I20,G21:I21,G23:I23,G29:I29,G30:I30,G36:I36,G37:I37,G38:I38,G39:I39,G40:I40,G48:I48,G50:I50,G51:I51,G52:I52,G53:I53,G54:I54")) Is Nothing Then
        With Target
            .Font.Name = "Wingdings"
            .Font.Size = 22
            If .Value = Chr(111) Then
                .Value = Chr(254)
                .Interior.Color = vbGreen
            Else
                .Value = Chr(111)
            End If
            .Offset(0, 0).Select
        End With
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Cells.Count > 1 Then Exit Sub
   If Not Intersect(Target, Range("G6:I6,G7:I7")) Is Nothing Then
       With Target
           .Font.Name = "Wingdings"
           .Font.Size = 22
           If .Value = Chr(111) Then
               .Value = Chr(254)
           Else
               .Value = Chr(111)
           End If
           .Offset(0, 0).Select
       End With
   End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True
   Target.Interior.Color = vbGreen
End Sub