workbook change and update

[Sofia Grave]

Hej I have a problem

I have a workbook with 3 worksheets, in the first wotksheet I insert
data that will used in the others sheets.

in the other sheets a calculation is made everytime a change a range
cel, but only if I am active in that cells, because when I place the
number in the first sheet nothing happens.

my code is:

Private Sub Worksheet_change(ByVal Target As Range)


If Intersect(Target, Range("D8")) Is Nothing Then
Exit Sub
Else
'Range("D38").GoalSeek Goal:=0, ChangingCell:=Range("D37")
End If

End Sub

this code is in sheet 2 and sheet free, but I want this to happen when
I change rangeD8 from the sheet 1.

Thanks for you time