Public Function Diff() As Variant
Application.Volatile
For Each c In Range("D9:M9")
If c = Range("Trimprec") Then Exit For
Next c
Diff = Sheets(ThisSheetIndex).Cells(Application.Caller.Row, c.Column + 1), - Sheets(ThisSheetIndex).Cells(Application.Caller.Row, c.Column)
End Function