Opv
10-06-2014, 03:24 PM
I thought this was going to be simple but I continue to receive an "Expected Expression" error. What I'm attempting to do is test for whether the Target contains a formula and if so to automatically adjust the Target.Value by 109.5%.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula Then
Application.EnableEvents = False
Target.Value = Target.Value = (Target.Value * 109.5%)
Application.EnableEvents = True
End If
End Sub
Why would this not work? Is there a work-around to make accomplish the same objective?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula Then
Application.EnableEvents = False
Target.Value = Target.Value = (Target.Value * 109.5%)
Application.EnableEvents = True
End If
End Sub
Why would this not work? Is there a work-around to make accomplish the same objective?