Itteraties alleen op een selectie

[Symphysodon]

Beste Froummers,

Ik heb een stukje code waarmee ik op een selectie van een cel berekeningen kan uitvoeren. Dit heeft altijd gewerkt maar door één of andere update werkt het voor iteraties niet meer. Als ik op meerdere plekken iteratieformules heb staan en ik selecteer een cel met een iteratie en start vervolgens het programma dan worden voor alle cellen de iteraties uitgevoerd.

Public Sub RecalculateSelection()
    If TypeName(Selection) = "Range" Then Selection.Calculate
End Sub

Het bestand is als een add-in vastgelegd. Maar ook als ik het in een module van een xlsm-bestand zet, werkt het niet.
Zie voorbeeld bestand.

Hoe kan ik dit oplossen?

mvg
Marco

 

[Symphysodon]

Gevonden. Het blijkt dat het gedrag van .Calculate sinds versie 2007 veranderd is maar dat de oude functie het nog wel doet.
Selection.CalculateRowMajorOrder

Het blijft vreemd 2007 is toch al tijdje terug en de code heeft tot voor kort nog gewerkt.