1) Only the first message box saying "1/10 of the way there" comes up. 1/9 and 1/8 etc do not.
2)The time stated in the msgbox is a fraction of a second - whearas in reallity takes about 20 seconds or so.
Sub Macro1()Dim TimeA As VariantDim n As LongDim z As Longz = 10TimeA = Now()MsgBox 100000000Do Until n = 100000000n = n + 1If n = ((100000000) / z) Then MsgBox "1/" & z & " of the way there!" z = z - 1 MsgBox "z is " & zEnd IfLoopTimeA = Now() - TimeAMsgBox TimeAMsgBox nEnd Sub