Private Sub Worksheet_Change(ByVal Target As Range)If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
Dim iColor
    Dim iVal As String
    iColor = Target.Font.Color
    iVal = Target.Value
    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
    Selection.Text = iVal
     With Selection.Font
        .Color = iColor
        .TintAndShade = 0
    End With
End If
End Sub