I am pretty sure this macro was working in a file i had in EXCEL 2003
but does not seem to work in a different file in EXCEL 2007, although
I suspect that the changeover is not the reason. Can someone please
help. Thanks. I am getting a run time error 13: Type Mismatch.on the
line just before Wend. It seems like it is doing one iteration and
then stopping :

Sub CopyPasteCCPInterest()

Dim Difference As Double
Dim CurrentInterestPaymentPaste As Double
Dim CurrentInterestPayment As Double
Difference = 1
While Difference 0.01
Range("CurrentInterestPaymentPaste").Value = _
Range("CurrentInterestPayment").Value
Application.Calculate
Difference = Abs(Range("CurrentInterestPayment").Value -
Range("CurrentInterestPaymentPaste").Value)
Wend

End Sub