Excel Macros If cell contains word then return value in next column

[rms4t77]

I am doing billing for background checks we run at an HR firm.
If someone could create me a macros that will return a price for each item we run in the background checks.
Say I type "Nationwide Indicator" in C5, I want D5 to return "$5". But I want this to be an option for the entire workbook. Say I want to be able to have that same option for any cell on any worksheet in the workbook. But I also need the option if I type other words to reflect other prices in any cell as well.

This list is:

Credit Report = $8
TN Felony Only = $12
Homeland Check = $8
County Criminal = $16
Statewide Criminal = $13
Social Trace = $2
Drug Screen = $45
Nation *** Offender registry = $5
MVR = $5
Federal Criminal = $8
Federal Civil = $8
Fingerprinting= $105
Bankruptcy = $10
Nationwide Indicator = $5

Truly would appreciate some help.

[Richard Buttrey]

Hi,

Maybe the workbook sheet change event?

Please Login or Register  to view this content.

[rms4t77]

This is actually my first time ever working with macros and I honestly have no idea what I am doing. This is what I tried to do with what you gave me. But I don't know how to make it work.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If LCase(Target) = "credit report" Then
Application.EnableEvents = False
Target.Cells(1, 2) = 8
ElseIf LCase(Target) = "social trace" Then
Application.EnableEvents = False
Target.Cells(1, 2) = 2
ElseIf LCase(Target) = "TN Felony Only" Then
Application.EnableEvents = False
Target.Cells(1, 2) = 12
ElseIf LCase(Target) = "Homeland Check" Then
Application.EnableEvents = False
Target.Cells(1, 2) = 8
ElseIf LCase(Target) = "Criminal County" Then
Application.EnableEvents = False
Target.Cells(1, 2) = 16
ElseIf LCase(Target) = "Statewide" Then
Application.EnableEvents = False
Target.Cells(1, 2) = 13
ElseIf LCase(Target) = "Drug Screen" Then
Application.EnableEvents = False
Target.Cells(1, 2) = 45
ElseIf LCase(Target) = "National *** Offender Registry" Then
Application.EnableEvents = False
Target.Cells(1, 2) = 5
ElseIf LCase(Target) = "MVR" Then
Application.EnableEvents = False
Target.Cells(1, 2) = 5
ElseIf LCase(Target) = "Federal Criminal" Then
Application.EnableEvents = False
Target.Cells(1, 2) = 8
ElseIf LCase(Target) = "Federal Civil" Then
Application.EnableEvents = False
Target.Cells(1, 2) = 8
ElseIf LCase(Target) = "Fingerprinting" Then
Application.EnableEvents = False
Target.Cells(1, 2) = 105
ElseIf LCase(Target) = "Bankruptcy" Then
Application.EnableEvents = False
Target.Cells(1, 2) = 10
ElseIf LCase(Target) = "Nationwide Indicator" Then
Application.EnableEvents = False
Target.Cells(1, 2) = 5

ActiveWorkbook.Save
End If