[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim plg, v
Set plg = Intersect(Target.Cells(1, 1), Columns("A:C"))
If Not plg Is Nothing Then
Application.EnableEvents = False
v = plg.Value
Cells(plg.Row, 1).Resize(1, 3).ClearContents
plg.Value = v
Application.EnableEvents = True
End If
End Sub[/B][/COLOR]