Calculate wird nicht ausgeführt

versuche es 24h später ein zweites mal, gestern waren die Antworten nicht erschöpfend

habe kleines Problem mit Calculate, AUTO Berechnung habe ich ausgeschaltet (bewusst)

Case "leer6"
ws13.Range("h41").Value = ws.Range("c38").Value
ws13.Range("h42").Value = ws.Range("g6").Value
ws13.Range("h43").Value = ws.Range("i56").Value
ws13.Range("h44").Value = ws.Range("i57").Value

Case Else
' nothing
End Select
Next ws
Set ws = Nothing
Set ws13 = Nothing
Calculate
'ActiveWorkbook.Save

End Sub

die Berechnung findet erst beim zweiten RUN des Macros statt !!!
habs auch mit SAVE probiert, gibt es kleinen Trick dies doch noch zu bewerkstelligen

DANKE

gruss geri