Private Sub Object_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'where Object can be a form, a label, a textbox 'etc
Object.Caption = Activecell.Value (for form, label)
Object.Text = activecell.value (for textbox)
End sub
I think the rest will be simple to you. I hope this is of help
End Sub
|