Gern schicke ich auch die Testdatei.
Sub x()
Dim Anz as long
Do
Anz = Anz + 1
if anz > 1000000 then exit do 'damit die schleife nicht ewig läuft
Application.Calculate
Loop While Range("A1").Value 4 'hier zelle anpassen
msgbox "Um eine Übereinstimmung von 4 zu erreichen wurden " & Anz & " Durchläufe benötigt"
End Sub