Concatenate in VBA

Hi, Prad,

if you really need a VBA solution, code goes behind the sheet (right click sheet tab, View Code and paste code into CodeWindow):

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
  If IsNumeric(Target) Then
    Application.EnableEvents = False
    Target = Target & "PRAD"
    Application.EnableEvents = True
  End If
End If
End Sub

Ciao,
Holger