Sheet Calcuation Issue
 

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

Sheet Calcuation Issue
 

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.

--
Regards,
Tom Ogilvy


"Dave Marden" wrote in message
...
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