Mouse roll over or single click the cell to popup text box

[Rocky2013]

Hello,
Is that possible to Mouse roll over or single click the cell to popup text box?
I am looking for two solutions one for mouse over and single click to pop-up the
text box (not by a separate commnad button).


Thanks

[Olly]

Try the following:

In a general module:

Public Function OnMouseOver()
ActiveSheet.Shapes.Range(Array("TextBox 2")).Visible = True
End Function


Public Function OnMouseOut()
ActiveSheet.Shapes.Range(Array("TextBox 2")).Visible = False
End Function

In the worksheet module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("G10")) Is Nothing Then
        ActiveSheet.Shapes.Range(Array("TextBox 2")).Visible = False
    Else
        ActiveSheet.Shapes.Range(Array("TextBox 2")).Visible = True
    End If
End Sub

Then in G10, enter:

=IFERROR(HYPERLINK(OnMouseOver(),"Show Me"), "Show Me")

And in the cells surrounding G10 (so F9:F11, G9, G11, H9:H11):

=IFERROR(HYPERLINK(OnMouseOut(),""), "")

EDIT: Attachment added, to show it in practice.

[Rocky2013]

Hi Olly,
Thanks for the codes. The mouse over works perfect exactly.
I found there are functions around the cell, it seems the purpose
of those function is to turn off the text box when mouse pointer
rolls away from cell G10.

How to handle if there are other data around the cell G10?
One quick way I think is to make the adjcent rows and columns
very narrow to almost invisible. I rather not to do that way if there
is another way; because I will have lots those comments in the text
boxes.

If I do not ask too much, can you please do one for a single click the
cell G10 to pop-up a text box; same as the input message from validation.
I am very appreciate it.

Thanks

[Rocky2013]

Hi,
I play around on single click, now it works. I delete all functions in each cell from range F9:H11.

Can you please advise on the other topic that if there are other data around adjacent to cell G10 in lieu
of functions?

I also tried deleting contents in G9:H11 except cell G10, mouse over works, but I need to click any cell outside
the text box to close the text box. Properly I may choose this option rather to narrow the rows and columns that
creating more works.

Thanks

[Rocky2013]

Hi,
I assume the function around G10 are required to mouse roll away to close text box.
and no other solutions. I will my post to SOLVED. Thanks of your help