The following program causes Excel to crash.

I want to display live the mouse selected text in textbox
into cell(4,8) as I scroll thru text. I had though of using something
like WHILE mouse button down but could not get it to work
so I went with mouse move - but I think it is not efficient.

Private Sub textbox1_MouseMove _
(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)

Cells(4, 8).Value = TextBox1.SelText
End Sub


Thanks
Pal

Tried your code in the following environment and it works fine.

Excel V10.4524 SP-2
OS Name Microsoft Windows XP Professional
Version 5.1.2600 Service Pack 1 Build 2600

Cheers
Nigel

"Pal" wrote in message
news:CxvSb.188129$xy6.963381@attbi_s02...

The following program causes Excel to crash.

I want to display live the mouse selected text in textbox
into cell(4,8) as I scroll thru text. I had though of using something
like WHILE mouse button down but could not get it to work
so I went with mouse move - but I think it is not efficient.

Private Sub textbox1_MouseMove _
(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)

Cells(4, 8).Value = TextBox1.SelText
End Sub


Thanks
Pal






----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =---

If I start a new sheet it works fine for a few minutes. But then crashed
after I try to add any other scripts.
I get the following Run Time error when I place my cursor over the textbox.

Method "Value" of Object Range failed



"Nigel" wrote in message
...
Tried your code in the following environment and it works fine.

Excel V10.4524 SP-2
OS Name Microsoft Windows XP Professional
Version 5.1.2600 Service Pack 1 Build 2600

Cheers
Nigel

"Pal" wrote in message
news:CxvSb.188129$xy6.963381@attbi_s02...

The following program causes Excel to crash.

I want to display live the mouse selected text in textbox
into cell(4,8) as I scroll thru text. I had though of using something
like WHILE mouse button down but could not get it to work
so I went with mouse move - but I think it is not efficient.

Private Sub textbox1_MouseMove _
(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)

Cells(4, 8).Value = TextBox1.SelText
End Sub


Thanks
Pal






----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet
News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000
Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption
=---