I have tried using this but the code I had written for OnDoubleClick would not execute
when placed in a BeforeDoubleClick sub, but I went back and worked out.
I tried using
Worksheets(1).OnDoubleClick = "test"
to execute the test() sub.
This works in 2002 but wouldnt in 97, however just pasting the contents of test() into the BeforeDoubleClick made it work fine.