Changing the value in a worksheet text box, Part 3; Brainless

Here is the second path mentioned in Changing the value in a worksheet text box, Part 1.  It's not very exciting but it gets to the gist.

Brainless Subroutine

This is useful if your approach is to feed the new value to subroutine that will update .DrawingObject.Caption.

Sub UpdateWSTextBox(ws as Worksheet, txtboxname As String, NewValue)
        ws.Shapes(txtboxname).DrawingObject.Caption = NewValue
End Sub