"Worksheet_Change" fails if change is initiated from another sheet

I have a script to add date to "A" when "D" changes.
--------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count = 1 And Target.Column = 4 Then
Target.Offset(0, -3) = Date
End If
End Sub
-----------------
Works fine, until I had "D" populated, thru this formula, from another sheet "Worksheet".
=IF(Worksheet!D26=0,"nutin",Worksheet!D26)
-----------------------
Now when "D" changes [is populated] from this formula, or sheet "Worksheet", the date does not show in "A".
In other words, when "D" changes via this formula, the script does not work and "A" does not populate with the date.

Not feasible. Is there another way around this?

Hi Skipro,

Nice to see you in this forum as well.

Place the following UDF in a standard module:

Please Login or Register  to view this content.

Now for all your formulas in column D, place them inside the UDF formula for the call:
ex. Sheet1 cell D1 has the formula =Sheet2!A1*2

Change the formula in D1 =Calling(Sheet2!A1*2)

In the worksheet module, place your following code

Please Login or Register  to view this content.

The UDF returns the formula result to the cell as if the formula would without UDF, however, it is able to capture the cell that was just changed (CalcCell). Since the calculated cell triggers the WorkSheet_Calculate event, we can use the CaclCell's address to populate column A.

HTH,
Maud

skipro1.png

Maud,
Thanks.
To be clear:
Sheet1 is where I enter data in D
Sheet2 is where I want D[Sheet2] to be populated from D[Sheet1] and have the date populated in A[sheet2]. I want the date entered to be non volatile, remain[not change] after a refresh.
If there is no entry in D [Sheet1] there should be no entry or changes in A or D in Sheet2.
When I enter an amt in D[Sheet1], then I want that amount to populate D [Sheet2] and have the date populate in A[Sheet2], and be non volatile.
++++++++++++++++++++
At your suggestion:
I added standard module
I added worksheet module for Sheet2.

I think you want me to add the formula "=Calling(Sheet2!A1*2)" to D[sheet2]

This does not work as described above for me.