code to add to each cell

[methody]

Hi
I have a column with changeable number of non empty cells, although the whole column might be blank. Each cell contains some text (unless the whole column is blank). There are no empty cells. I am looking for code which will look at the column and as long as the column is no blank, it will look at each cell and add (2). So if the cell initially has 'ABX33' if will subsequently have 'ABX33(2)'
I know it could be done with formulas but I want to avoid using formulas.

Any help would be appreciated

 

[mart37]

    Dim Rng As Range
    If ActiveSheet.Range("A2") <> "" Then
        Set Rng = ActiveSheet.Range("A2:A" & ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row)
        For Each r In Rng
            r.Value = r.Value & "(2)"
        Next
    End If

 

[methody]

Thank you. that works well.