Macro RSA_ValColorBlue

xxx.

Usage:

• xxx
• xxx

Cauton:

xxx

Sub Rsa_ValColorBlue()

    'coloring for contribution to solvent accessible surface

    i1 = Selection.Row
    i2 = i1 + Selection.Rows.Count - 1
    j1 = Selection.Column
    j2 = j1 + Selection.Columns.Count - 1
    
    For i = i1 To i2 Step 1
        For j = j1 To j2 Step 1
        If (IsEmpty(Cells(i, j)) Or Not (IsNumeric(Cells(i, j)))) Then
      
            k = 1 'black
            ElseIf Cells(i, j).Value < 10 Then
                k = 37 'yellow
                ElseIf Cells(i, j).Value < 25 Then
                    k = 38 'yellow-green
                    ElseIf Cells(i, j).Value < 50 Then
                        k = 39 'green
                        ElseIf Cells(i, j).Value < 75 Then
                            k = 40 'green-blue
                            ElseIf Cells(i, j).Value < 90 Then
                                k = 41 'cyan
                                Else
                                    k = 42 'blue
        End If

        Cells(i, j).Select
        With Selection.Interior
            .ColorIndex = k
            .Pattern = xlSolid
        End With

    Next j
Next i

End Sub