font change in dynamically created textbox control

jughead

Hi
I wanted to create a textbox in a worksheet on the fly. i am able to do that but am not able to change the font of the textbox EVERYTIME. i am able to change it once and after that whenever the code is run i get a runtime error 1004. My code is as follows:

With Workbooks("Timing.xls").Worksheets("timing").Shapes.AddTextbox(msoTextOrientationHorizontal, Format(Columns(1).width) + ((i - 1) * 30 + 5), 80, 70, 50)
.TextFrame.Characters.Font.name = "Arial"
.TextFrame.Characters.text = clock
.Fill.Transparency = 1
.Line.Transparency = 1
End With

Thanking u in anticipation