I created a textbox via the method copied below, and everything worked fine until I tried to limit the number of characters that the user could add
(at least that is what I was trying to do with the tb2.Maxlength = 1 line).
[vba]Set tb2 = ActiveWorkbook.Worksheets(1).Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, _
Left:=383, Top:=38 + (x - 1) * 12.75, Width:=12.5, Height:=12.75)
tb2.TextFrame.Characters.Font.Size = 8
tb2.TextFrame.Characters.Font.FontStyle = "Times New Roman"
tb2.MaxLength = 1
tb2.TextFrame.Characters.Text = Right(x, 1)
tb2.Name = "tbx" & x[/vba]
Thank you for your help,
Matt