Sub CheckBox6()

    If Range("H6") = True Then
       Range("B6:G6").Select
       With Selection.Interior
           .Pattern = xlSolid
           .PatternColorIndex = xlAutomatic
           .Color = 65535
           .TintAndShade = 0
           .PatternTintAndShade = 0
       End With
    End If
    Range("A5").Select

    If Range("H6") = False Then
       Range("B6:G6").Select
       With Selection.Interior
           .Pattern = xlNone
           .TintAndShade = 0
           .PatternTintAndShade = 0
       End With
    End If
    Range("A5").Select

End Sub