Cacher is the code snippet organizer for pro developers

Sub Sample1()
    Dim c As Range
    Dim val As Variant
    
    For Each c In Range("B2:H8")
        val = c.Value

        Select Case val
            Case 0
                myColor = xlGray75
            Case 1 To 64
                myColor = xlGray50
            Case 64 To 128
                myColor = xlGray25
            Case 128 To 192
                myColor = xlGray16
            Case 192 To 255
                myColor = xlSolid
        End Select
        
        c.Interior.Pattern = myColor
    Next c
End Sub