using VBA to show comments of a cell, where comments are active Bloomberg formulae

[cmr72]

I am trying to create a 'comment' in excel that will show Bloomberg BDP info of whatever cell is highlighted. For example, let's say active.cell = IBM and I 'hover' over IBM. I would want a comment box to pop up showing relevant market data.

<code style="margin: 0px; padding: 0px; border: 0px; vertical-align: baseline; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, serif;">

$bid = "=BDP(active.cell &" US EQUITY","BID_ALL_SESSION")"
$bidsize = "=BDP(active.cell &" US EQUITY","BID_SIZE_ALL_SESSIONS_RT")"
$ask = "=BDP(active.cell &" US EQUITY","ASK_ALL_SESSION")"
$asksize = "=BDP(active.cell &" US EQUITY","ASK_SIZE_ALL_SESSIONS_RT")"
$last = "=BDP(active.cell &" US EQUITY","LAST_ALL_SESSIONS")"
$lastsize = "=BDP(active.cell &" US EQUITY","TRADE_SIZE_ALL_SESSION_RT")"

in 'blah' I would want ($bidsize $bid $ask $asksize $last $lastsize)
I started peeking around and found something below, but do not know how to implement. Any ideas?

<code style="margin: 0px; padding: 0px; border: 0px; vertical-align: baseline; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, serif;">

Sub add-comments()
Dim rcell As Range
For Each rcell In Range("B2:B48")
If rcell.Value <> "" Then
rcell.AddCommentrcell.Comment.Text 'blah'
End If
Next
End Sub

</code></code>
Thanks for viewing