Macro AA_Cys

Highlights the position of Cys residues in the sequence alignment. The macro can easely be changed to highlight different amino acids.

• Select the range of cells containing the sequences to be colored
• Choose "Macro" for the "Tool" menu
• Run macro AA_Cys

Sub AA_Cys()
'Highlights  Cystein residues

    If Selection.Columns.Count = 0 Then      'Error, nothing selected
        MsgBox Prompt:="No cells selected, please select the sequences you wish to color"
        Exit Sub
    End If

'get extent of current selection
    i1 = Selection.Row
    i2 = i1 + Selection.Rows.Count - 1
    j1 = Selection.Column
    j2 = j1 + Selection.Columns.Count - 1

    
'select Cells row i1-i2, column j1-j2; change only indicated Amino Acids
    
For i = i1 To i2 Step 1
    For j = j1 To j2 Step 1 'row i1-i2, column j1-j2'
        If ((Cells(i, j) = "C")) The          'Change this line if you want to highlight a different residuen
            'Cy,s color yellow'
            Cells(i, j).Select
            With Selection.Interior
                .ColorIndex =                 'Change this line if you want to highlight with a different color5
                .Pattern = xlSolid
            End With

        End If
    Next j
Next i

End Sub