View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jeff Jeff is offline
external usenet poster
 
Posts: 921
Default Link Text Boxes (As can do in Word)

Try something like.

Option Explicit

Private Const TextMaxLength As Long = 10 ' Change to Suit

Private Sub TextBox1_Change()
If Len(TextBox1.Value) = TextMaxLength Then
TextBox2.Activate
End If
End Sub
'This is pretty basic
'Every time a character is added
'The code counts the total
'if it equals then specified max
'Then it moves to the next textbox



"Joyce" wrote:

Hi,

I have text box controls (inserted from the Control Toolbox) in my worksheet
and am wondering if there is any way to program them so that text flows from
one into another when the text is longer than the text box.

I know this is easy with Word, and that there isn't an option in Excel, but
was wondering if this is something that could be programmed.

Thanks for any advice.