got it working myself, code following for others
Label1 is the clickable area, and label 2 contains the info
Private Sub Label2_Click()
If (Label1.Visible = False Or Label1.Top + Label1.Height <
ActiveWindow.VisibleRange.Top) Then
With ActiveWindow.VisibleRange
Label1.Top = .Top + 5
Label1.Left = Label2.Left - 120
Label1.Visible = True
End With
Else: Label1.Visible = False
End If
End Sub
--
T-ReXTC
------------------------------------------------------------------------
T-ReXTC's Profile:
http://www.excelforum.com/member.php...o&userid=31352
View this thread:
http://www.excelforum.com/showthread...hreadid=510483