oexcel.activesheet.shapes.addtextbox(msotextorientationhorizontal, 311, 290, 363.75, 15).select oexcel.selection.characters.text = thisform.text2.value with oexcel.selection.font .name = "Arial" .fontstyle = "Regular" .size = 10 .bold = .t. .strikethrough = .f. .superscript = .f. .subscript = .f. .outlinefont = .f. .shadow = .f. .underline = xlunderlinestylenone .colorindex = xlautomatic endwith