Linking Excel Cell with Text Box

[rahul_r79]

Hi All

I am trying to link multiple excel cell value to one Excel Text Box,but its not working only b4 value is coming in the textbox,..Is there is any way I put multiple excel cell value in one Textbox??
[VBA]
Public Sub TextBox()
ActiveSheet.Shapes("Text Box 3").Select[VBA]
Selection.Characters.Text = Range("B3").Value
Selection.Characters.Text = Range("B4").Value
Range("B1").Select
End Sub
[\VBA]

[Ken Puls]

Untested, but try this:

[vba]Public Sub TextBox()
ActiveSheet.Shapes("Text Box 3").Characters.Text = Range("B3").Value & Range("B4").Value
End Sub
[/vba]

[Bob Phillips]

If its a drawing control, use

[vba]

ActiveSheet.Shapes("TextBox 3").TextFrame.Characters.Text = Range("B3").Value & Range("B4").Value
[/vba]

[rahul_r79]

Thanks A million for the reply

But its giving an "Run Error 438 " Object doesn't support this property or method

Is I am doing something very wrong.???

[Ken Puls]

Which example? Bob's (xld) or mine? They are different, so you should try both...

[rahul_r79]

Yep I got it

The name of the Box was not right...

Thanks a lot