Hi JLGWhiz

Yes, the number calculated by this function should always be positive, so
this is not really a problem.

But it actually doesn't even matter if this function breaks and gives me an
error. Just the fact that the function is being called within the spreadsheet
breaks the other function, which should be totally unrelated. This is what is
so confusing.

thanks
Emma

"JLGWhiz" wrote:

Is the cell to the immediate left always a later date/time than the one up
and left? If not, it would result in a negative time which VBA might ignore.

"Embirath" wrote:

Hi there

I've had this problem with an Excel program of mine for quite some time now.
Have posted this problem to many news groups but haven't been able to find a
solution yet. I finally was able to narrow down the problem, so I think it is
now fairly well defined. I'm hoping this will help. Any help would be greatly
appreciated!

I have one column in my spreadsheet which has "data validation" set, so that
there is a drop-down list of allowed pre-set values. The user can go in and
change the contents of these cells by picking an item from the drop-down
lists. When the user does this, the cell immediately to the right of it is
filled out with some default parameters. I use the "Worksheet_Change"
function to make this happen. Any time a cell changes in this particular
column, a function is called which fills out the appropriate information in
the neighboring column. Fine, everything works great so far.

The problem comes in if I happen to call another function that I wrote in
this same spreadsheet. I call this my "haunted" function... which makes the
above function break... The functions seem completely unrelated, but perhaps
I'm missing something. When I call this function from some other cell in the
spreadsheet, nothing happens when I select an item from the drop-down lists
mentioned above (the information that is supposed to be entered in
neighboring column doesn't appear). Here is my "haunted" function:

Public Function diffr() As Date
Application.Volatile (True)
With Application
diffr = .ThisCell.Offset(0, -1).Value2 - .ThisCell.Offset(-1,
-1).Value2
End With
End Function

This function simply calulates the difference between two dates/times, in
the two cells immediately to the left and "up and to the left" of whichever
cell calls the function. (There is a long story of why I wrote this function
rather than just simply typing in the formula in the cell - but please ignore
this for now.)

It would be easier to just send my spreadsheet, which clearly shows the
problem, but I don't see a way to do that here. If you need more information,
please let me know.

If any of you have any ideas what might be going on, Please let me know!

Thank you!!
Emma