The macro was written to only work on cell C1 as was indicated in the original post. Below I has supplied a new code to work for any cell in column C and incorporate the newly supplied information.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If UCase(Target) = "NO" Then
Target.Offset(, 4).Resize(1, 5).Value = 0
ElseIf UCase(Target) = "YES" Then
Target.Offset(, 4) = 1
Target.Offset(, 5) = 1
Target.Offset(, 6) = 500
Target.Offset(, 7) = 200
Target.Offset(, 8) = 400
End If
End If
End Sub
Bookmarks