On my worksheet, are 3 hidden columns. One of the columns contains an ID
Number (for a cost center). Originally the columns were hidden because there
would only be 1 ID. Now, the data has been expanded to include multiple IDs.
But I still need to have the columns hidden.

FYI........the right click is already being used for something else.

I would like to display the ID when the user moves the cursor over any line
with data (like a control tip). Is this possible? If so any help getting
started would be appreciated. Any suggestions on other ways to accomplish
this would be appreciated as well. As always, "Thanks" for the help....

--
JT

are you talking about selecting a cell with a row or are you talking about
hovering the mouse over a cell (probably not easily doable)?

If selecting, then use the SelectionChange event

--
Regards,
Tom Ogilvy


"JT" wrote:

> On my worksheet, are 3 hidden columns. One of the columns contains an ID
> Number (for a cost center). Originally the columns were hidden because there
> would only be 1 ID. Now, the data has been expanded to include multiple IDs.
> But I still need to have the columns hidden.
>
> FYI........the right click is already being used for something else.
>
> I would like to display the ID when the user moves the cursor over any line
> with data (like a control tip). Is this possible? If so any help getting
> started would be appreciated. Any suggestions on other ways to accomplish
> this would be appreciated as well. As always, "Thanks" for the help....
>
> --
> JT

Try this for a starter idea. Paste the following event code into the
worksheet code module. When you double-click a cell, it toggles Status
Bar info on and off. Then select a cell, the info will appear on the
Status Bar. Double-click any cell again to toggle Status Bar reporting
off. The following code just uses column $A for its info. This avoids
having MsgBoxes popping up at each selection change.

Private blnStatusMsgOn As Boolean

'----------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)

blnStatusMsgOn = Not blnStatusMsgOn
Worksheet_SelectionChange ActiveCell
End Sub

'----------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngColA As Range

Set rngColA = Target.EntireRow.Resize(1, 1)

If blnStatusMsgOn _
Then
Application.StatusBar = "Info is '" & rngColA.Value & "'."
Else
Application.StatusBar = False
End If
End Sub

--
Regards,
Bill Renaud

Since you are wanting to have something resembling a tooltip, you
could use a comment. Through VBA, you could assign a comment to all
of the cells within the row and set the comment equal to the range
that contains the info you want displayed. Just something yo get your
creative juices flowing:
ActiveCell.AddComment.Text "Product Number:" & Chr(10) &
Cells(ActiveCell.Row, 1)
Bill Renaud wrote:
> Try this for a starter idea. Paste the following event code into the
> worksheet code module. When you double-click a cell, it toggles Status
> Bar info on and off. Then select a cell, the info will appear on the
> Status Bar. Double-click any cell again to toggle Status Bar reporting
> off. The following code just uses column $A for its info. This avoids
> having MsgBoxes popping up at each selection change.
>
> Private blnStatusMsgOn As Boolean
>
> '----------------------------------------------------------------------
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
> Cancel As Boolean)
>
> blnStatusMsgOn = Not blnStatusMsgOn
> Worksheet_SelectionChange ActiveCell
> End Sub
>
> '----------------------------------------------------------------------
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Dim rngColA As Range
>
> Set rngColA = Target.EntireRow.Resize(1, 1)
>
> If blnStatusMsgOn _
> Then
> Application.StatusBar = "Info is '" & rngColA.Value & "'."
> Else
> Application.StatusBar = False
> End If
> End Sub
>
> --
> Regards,
> Bill Renaud