Automatically Add Word to Cell When Text Entered

[Nate123]

I am trying to find a way to automatically add a word to the end of a string when someone enters something into a cell in column A. For example, if I enter '123123' the macro would add 'Test' to the end resulting in '123123 Test'. However, if I enter '123123 Test' it would leave the cell alone and not add another 'Test' to the end. I am looking for a way to have this done when a person edits a cell and not have to run a macro from the macro menu each time. Any ideas?

 

[Jaafar Tribak]

Maybe something along these lines ( put code in the worksheet module)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim i As Long

    With Target
        If .Column = 1 Then
            For i = 1 To .Cells.Count
            If UCase(Right(.Cells(i), 4)) <> UCase("Test") And _
            Not IsEmpty(.Cells(i)) Then
                .Cells(i) = .Cells(i) & " Test"
            End If
            Next i
        End If
    End With

End Sub