Given cell formula:

=ASheetOtherThanThisOne!A1

how do I reference that range in, say, the sheet's Change event?

(This works:

with Target
n = Instr(.Formula, "!")
Set R = Worksheets(Mid(.Formula, 2, n - 2)).Range(.Formula - n)
end with

But that's not programming. That's bull****. Surely VBA has something
better?)

***

Thanks as usual to those Knights of the Web who ceaselessly help us de-
clued cats out.

***