|Here's a tip for posting in a help forum such as this one:|
Please don't try to make the task simpler but leaving out parts of your requirements, especially if you don't know how to make the modifications yourself. For example, if you are looking for code that needs to work on a range of cells (e.g. A1:C100) don't ask for code that only works on A1:C1.
In the end, you just end up making more work for those that supply the solutions since they have to modify the code and set up a testing spreadsheet (again) to make sure the code does what it's supposed to do.
The more details you supply up front, the better.
Try this version:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range(Target.Address), Range("A1:A100")) Is Nothing Then
If Target = "Spam" Then
Range("B" & Target.Row) = "No"
Range("C" & Target.Row) = "Close"
If Not Intersect(Range(Target.Address), Range("B1:B100")) Is Nothing Then
If Target = "Yes" Then
Range("C" & Target.Row) = "Resolved"
If Target.Address = "$D$1" Then
Range("D2:D100") = Range("D1")
Application.EnableEvents = True
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.