worksheet_change not working

Question

i have the following macro wich does not work

Private Sub Worksheet_Change(ByVal Target As Range)

'Declare variables

Dim sourceSheet As Worksheet

Dim sourceRange As Range

'Set variables to sheets and ranges

Set sourceSheet = ThisWorkbook.Sheets("sheet1")

Set sourceRange = sourceSheet.Range("D16")

'Check if the value in cell D15 has changed

If Target.Address = "$D$15" Then

'Check if cell D15 contains the value 9 

If Target.Value = 9 Then 

    'Replace the value in cell D16 with 7 

    sourceRange.Value = 7 

End If 

End If

End Sub

Answer 1

Are you sure that the code is in the worksheet module of the sheet containing the cell D15 that you want to monitor?

The worksheet module can be activated by right-clicking the sheet tab and selecting 'View Code' from the context menu.

Also make sure that macros are allowed.

Answer 2

That worked:

The code was in a different folder