Yeah I did this instead:-

In Workbook Module:-

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
One = Range("A1").Value
ActiveSheet.Shapes("AutoShape 1").Select
Selection.Characters.Text = One
Range("a1").Select

Two = Range("A2").Value
ActiveSheet.Shapes("AutoShape 2").Select
Selection.Characters.Text = Two
Range("a1").Select

Three = Range("A3").Value
ActiveSheet.Shapes("AutoShape 3").Select
Selection.Characters.Text = Three
Range("a1").Select

Four = Range("A4").Value
ActiveSheet.Shapes("AutoShape 4").Select
Selection.Characters.Text = Four
Range("a1").Select
End Su

--
Message posted from http://www.ExcelForum.com