Ez nem a timertől függ. A makrót kell jól megírni.

Itt van ez a két példa, hasonlítsd őket össze működés közben.

Sub M1()
    Dim i As Long
    For i = 1 To 200000
        Debug.Print i
    Next
    MsgBox "kész"
End Sub

Sub M2()
    Dim i As Long
    For i = 1 To 200000
        Debug.Print i
        DoEvents
    Next
    MsgBox "kész"
End Sub

Persze ára is van annak a plusz egy sornak... :O)