VBA code for Hiding formula from Formula Bar.

[mazadb]

Hello,
Help me. I wrote this code for hiding formula from Formula Bar. But formula is not hiding. What is wrong? Could anybody help me??
Dim myDic As New Dictionary

Private Sub Worksheet_HideFormula(ByVal Target As Range)
' Before using this code do must: Tools - References - click on
' "Microsoft Scripting Runtime".
Dim myCell As Range
Dim myRng As Range
Set myRng = Range("A2:J25")

If myDic.Count <> myRng.Count Then
For Each myCell In myRng
myDic.Add myCell.Address, myCell.FormulaR1C1
Next
End If

If (Target.Count = 1) And (Not Application.Intersect(myRng, Target) Is Nothing) And (Target.HasFormula) Then
With Target
.Value = .Value
End With
End If
'MsgBox myDic.Count
myDic.RemoveAll

End Sub

[Logit]

.
https://stackoverflow.com/questions/...in-formula-bar

https://www.extendoffice.com/documen...ing-sheet.html

Both untested here.

[TMS]

There isn't an Event Handler for "HideFormula".


Administrative Note:
We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional.)