Execute Macro on Cell Change

Hello,
I've spent quite a bit of time researching this, but haven't found anything super helpful.

Goal: Execute macro on cell value change.
Current: Executes macro on target cell selection

Any ideas? Happy Monday!

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Target.Address = "$E$8:$G$8" Then
            Sheets("Account Details").Range("ExpirationDate").Formula = "=IF(E8="""","""",DATEVALUE(MONTH(E8)&"" / ""&DAY(E8)&"" / ""&(YEAR(E8)+1)))"
  End If
 
End Sub

---

Hi mikeoly!
not sure, change "Worksheet_SelectionChange" to "Worksheet_Change" and try again.

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Not Intersect(Target, Me.Range = "$E$8:$G$8") Is Nothing Then
       
        Worksheets("Account Details").Range("ExpirationDate").Formula = "=IF(E8="""","""",DATEVALUE(MONTH(E8)&"" / ""&DAY(E8)&"" / ""&(YEAR(E8)+1)))"
    End If
End Sub

---

Quote:

---

Originally Posted by xld

Code:

---

(...)
    If Not Intersect(Target, Me.Range = "$E$8:$G$8") Is Nothing Then
    (...)

---

---

It should be

Code:

---

If Not Intersect(Target, Me.Range("$E$8:$G$8")) Is Nothing Then

---

Artik

Don't know about the formula, but I'd do

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range ("$E$8:$G$8") Is Nothing Then Exit Sub
       
    Worksheets("Account Details").Range("ExpirationDate").Formula = "=IF(E8="""","""",DATEVALUE(MONTH(E8)&"" / ""&DAY(E8)&"" / ""&(YEAR(E8)+1)))"

End Sub



---

Thanks all! A few of the suggestions seemed to work well.