Pivot Table Misc

[djubex]

Hey guys,

I have a problem I would like some of you to help me or at least guide me.
I have a Pivot Table with a lot of divisions, like company divisions and are structured on 5 levels of importance and break down as such. Each division has a unique code.
My issue is that i would like Excel to display a custom message whenever i hover my mouse over the name of a division, and that message to be its code.
I can't use events because Pivot Tables dont care about cell refferences and I would like the message to be displayed not be be in a MsgBox, that the user has to acknoledge and hit ENTER to close, i want the message to be in like a popup ballon.

 

[p45cal]

There is op hover/mousemove event over sheets/pivot tables, however while it might be possible to put some object(s) invisibly over the pivot table/pivot table cells, it would be quite complex coding.
As the beginning of an alternative solution, try out the code below in a sheet's code module.
Is it worth pursuing?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Shapes("blah").Delete
On Error GoTo 0
With Shapes.AddTextbox(msoTextOrientationHorizontal, Target.Offset(, 1).Left + 5, Target.Top, 84.75, 29.25)
  .Name = "blah"
  .DrawingObject.Caption = ActiveCell.Value
  .DrawingObject.Interior.ColorIndex = 36
  .DrawingObject.Border.LineStyle = xlLineStyleNone
  .Fill.Transparency = 0.08
End With
End Sub