Function sbSumMyFormat(r As Range)
'Sums up all values in r which have the same number format
'as calling cell (where this function is called from).
'Please keep in mind that this function is NOT automatically
'updated if an input cell format changes because that does
'not trigger a recalculation event! To ensure an up-to-date
'calculation you need to do this yourself
'(with CTRL + ALT + F9, for example).
'Reverse("moc.LiborPlus.www") PB V0.21 10-Jul-2011
If v.NumberFormat = Application.Caller.NumberFormat Then
sbSumMyFormat = sbSumMyFormat + v