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