VBA Code to Make a Cell Value Negative Based on Content of Adjacent Cell

[Court Manager]

I am developing a simple general ledger for employees to use for expense tracking. I want the contents of each cell in Column E to change to a negative value based on the content of the adjacent cell in Column F. Column F is restricted to a drop down list. When the employee chooses "Journal Entry - Credit" the value in Column E should change to a negative. I think VBA is required for this, but have been unable to get it to work.
I'm using the code below, adopted from a post I found on the forum, but not getting the negative value.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Application.EnableEvents = False

For Each cell In Target
If Not Intersect(cell, Range("F:F")) Is Nothing Then
Select Case Trim(LCase(cell.Value))
Case "Journal Entry - Credit"
Cells(Target.Row, "E") = Abs(Cells(Target.Row, "E")) * -1
Case Else
Cells(Target.Row, "E") = Abs(Cells(Target.Row, "E"))
End Select
End If
Next cell

Application.EnableEvents = True
End Sub

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[AB33]

Count Manager,
Welcome to the forum!
Please take a moment to read forum's rule.
Please use code tags with your code.
The ABS function will convert any negative in to +ve

Please Login or Register  to view this content.

Will revert to +ve

[Court Manager]

Thanks for your offered assistance.
I tried the revised code and got the same result, though the VBA does appear to make the formatting of the value in "E" change from 'Accounting' to 'Currency' so the dollar sign ($) in the cell moves over. Otherwise I see no change either in the cell or on any of the other worksheets that pull data from this one.
I'm absolutely clueless with VBA and thought I could simply modify the code for another solution I found on the forum by changing column refefrences and the reference criteria, but it is not working. Perhaps the code is incorrect for my intentions? Any other ideas?

[Court Manager]

AB33 - Thanks, I'll read up on the rules.
I think your advice is to remove the ABS function as it is negating my effort to create a negative value. Is that correct?

[AB33]

Yes,
You normally use ABS to convert negative in to positive. For e.g. you have 20 and -20. You say ABS(-20)=20

[Court Manager]

I've tried numerous iterations of this and have determined it is outside my very limited understanding of VBA to get this to work correctly. Can anyone help with a better way? My ABS idea is not working.