vba add shape textbox code example Example: add text to Shape VBA ActiveWorksheet.Shapes(shapeIndex/Name).TextFrame2.TextRange.Text = "Hello shape"