I have had a program running for over a year and it just stopped and I
am not sure why.
It SHOULD place the contents of the mouse selected range of a textbox
and put it into A1.
I dont think it is actually seeing the selected range because the
contents of A1 never changes but it does "flicker" when the mouse
moves indicating something is happening.
How can I debug this?

Private Sub textbox1_MouseMove _
(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As
Single, ByVal y As Single)
If Len(TextBox1.SelText) > 0 Then Sheets(1).Cells(1, 1).Value =
TextBox1.SelText

End Sub