Macro To Run When Certain Cells Change

[Delta Star]

I need a macro to run if cells D2 or H5 changes value. Can anyone assist?

 

[Greenjelly]

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
'Do nothing if more than one cell is changed or content deleted
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub

'defining your target cells
If Target.Address = "$D$2" Or Target.Address = "$H$5" Then MsgBox "Hello"

End Sub

Change the msgbox to call a macro in a module or simple write the code in here.

Paste the code into a sheet if you only want it to work for that sheet rather than a module

 

[VoG]

Right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2,H5")) Is Nothing Then Exit Sub
Call mymacro
End Sub

Change mymacro to the name of your macro then press ALT+Q to close the code window.

 

[doofusboy]

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Not Application.Intersect(Range("D2"), Target) Is Nothing _
    Or Not Application.Intersect(Range("H5"), Target) Is Nothing Then
        Call your_Macro
    End If
End Sub