It took a young man to challenge me!
Place this code in every sheet module:
Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target.Text) 10 Then
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHo rizontal,
144.75, 36.75, _
191.25, 78.75).Select
Selection.Characters.Text = Target.Text
With Selection.Characters(Start:=1, Length:=9).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A1").Select
End If
End Sub


--
raypayette


------------------------------------------------------------------------
raypayette's Profile: http://www.excelforum.com/member.php...o&userid=29569
View this thread: http://www.excelforum.com/showthread...hreadid=574171