Private Sub DebugTimerSample()
    'Sample of the DebugTimerOn Subroutine and DebugTimerOff Function.

    'See also:
    '  DebugTimerOn Subroutine
    '  DebugTimerOff Function
    '  DebugTimers Function
    '  DebugTimersSample Subroutine

    DebugTimerOn

    Dim dblSqr As Double
    Dim lngTry As Long
    For lngTry = 1 To 1000000
        dblSqr = Sqr(lngTry)
    Next lngTry

    Debug.Print DebugTimerOff
End Sub