showing values instead of formulas in the box above

[Legacy 23340]

hi i have a list of couple hundred cells and would like to do some modifications to their display mode.

meaning say for example i have a cell J10 i have this formula

=$B$1*$B$2+$B$3*85 and in the cell where the formula fits in is a numeric value 19127

Is there something i can do to hide the formula =$B$1*$B$2+$B$3*85 and show only 19127 when i move the cursor over the cell with the arrow keys? and show it in the box up above.

i would have to apply the modification to hundreds of cells.

looking for simple help here.

TIA.

 

[Tom Urtis]

Replace that with this version instead, and see if it works better for you.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Dim y As Range, z As String
Application.EnableEvents = False
With Target
z = .Value
On Error Resume Next
For Each y In Cells.SpecialCells(1)
y.Comment.Visible = False
Next y
.ClearComments
If .HasFormula = True Then
.AddComment
.Comment.Visible = True
.Comment.Text z
End If
End With
On Error GoTo 0
Application.EnableEvents = True
End Sub