Sheet Calcuation Issue

[Guest]

I have created a simple function and for some reason the function doesn't
auto update. I have tried Application.Volatile, and Sheet1.Calculate but for
some reason when I change the formatting on the cell it still doesn't update
the return value.

The following is my function, please take a look.

Function FindPattern(InputRange As Range)
FindPattern = InputRange.Interior.Pattern
Sheet1.ReCalc
End Function

Thanks,
Dave Marden

 

[Tom Ogilvy]

changing a format does not trigger a calculate.

A workaround might be to use the selectionchange event to trigger a
calculate each time a cell is selected - but that could slow down your work.