Sorry chaps,

In both instances of the below the equals should be < as I had changed it
to equals to debug.

This gist of it is, if the active sheet isn't the sheet with the function
in then it exits the function.



If ActiveSheet.Name = "Standard Dev" Then
Exit Function
End If





Ron

set rng = Application.Caller
if rng.Parent.Name < Activesheet.Name then exit Function

However, this doesn't stop your function from being reevaluated, even if
only partially, - and would return a value of zero. Better would be to find
out why it is being recalculated when you think it shouldn't.

--
Regards,
Tom Ogilvy

"Ron" wrote in message
10.200...
Sorry chaps,

In both instances of the below the equals should be < as I had changed it
to equals to debug.

This gist of it is, if the active sheet isn't the sheet with the function
in then it exits the function.



If ActiveSheet.Name = "Standard Dev" Then
Exit Function
End If





Ron