Does anybody know one line of code that will allow me to
enter a number into a textbox on a worksheet.

when I record a macro I get..

Sheets("venn").Select
ActiveSheet.Shapes("Text Box 27").Select
Selection.Characters.Text = "123"

I thought this implies I could code this like so...

Dim sht as sheet
set sht = activesheet.shapes("Text Box 27")
sht.characters.text = "123"
set sht = nothing

But this does not work !! what is the correct way of
doing this ?