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