Run macro when cell is altered

[JimmieNeu]

Is there a way to do this?

The Working Macro:

Sub test()
If [C3] = "!!!!" Then
[C2] = [C2]
ElseIf [C3] = "PVC" Then
[C2] = [C2]
ElseIf [C3] = "Plywood" Then
[C2] = [C2]
ElseIf [C3] = "Starboard" Then
[C2] = [C2]
ElseIf [C3] = "MDF" Then
[C2] = [C2]
ElseIf [C3] = "Custom" Then
[C2] = "Custom"
End If
End Sub

What I have tried:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
Sub test()
If [C3] = "!!!!" Then
[C2] = [C2]
ElseIf [C3] = "PVC" Then
[C2] = [C2]
ElseIf [C3] = "Plywood" Then
[C2] = [C2]
ElseIf [C3] = "Starboard" Then
[C2] = [C2]
ElseIf [C3] = "MDF" Then
[C2] = [C2]
ElseIf [C3] = "Custom" Then
[C2] = "Custom"
End If
End Sub
End If
End Sub

Based on this thread:

Running a Macro continuously

Hello everyone, I have a question. I want to create a simple macro which continuously checks the data in cell A1. Right now it doesn't work. I have to select "Run Macro" in the menu everytime I want my macro to check the data. I know it's possible to automate this process and I suspect/hope...

www.mrexcel.com

 

[Joe4]

You cannot imbed a procedure inside of another procedure.
Either put the code right in it, or call one procedure from another, i.e. assuming that your original procedure works, either this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
If [C3] = "!!!!" Then
[C2] = [C2]
ElseIf [C3] = "PVC" Then
[C2] = [C2]
ElseIf [C3] = "Plywood" Then
[C2] = [C2]
ElseIf [C3] = "Starboard" Then
[C2] = [C2]
ElseIf [C3] = "MDF" Then
[C2] = [C2]
ElseIf [C3] = "Custom" Then
[C2] = "Custom"
End If
End If
End Sub

or this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
    Call test
End If
End Sub

Though I am not really sure what the point of this is:

[C2] = [C2]

Why are you setting a value to itself?
I don't think that serves any purpose.