hi
I face problem when select cells into columns C OR D and will shake for long time it seems to loop throught all of the cells are empty .it can be problem.
the code should hide formula in column E when select the cell .
Option Explicit
Dim zDic As New Dictionary
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Exit Sub
Dim zCell As Range
Dim zRg As Range
Dim lr As Long
Set zRg = Range("E2:E500")
If Target.CountLarge > 1 Then Exit Sub
If zDic.Count <> zRg.Count Then
For Each zCell In zRg
zDic.Add zCell.Address, zCell.FormulaLocal
Next
Else
If Intersect(Target, zRg) Is Nothing Then
For Each zCell In zRg
zCell.FormulaLocal = zDic.Item(zCell.Address)
Next
Else
If Target.HasFormula Then
With Target
.Value = .Value
End With
End If
End If
End If
End Sub
any chance to fix this problem please?