Attribute VB_Name = "SimpleTimer"
Option Explicit

Public Sub timeCalc()
   Dim tStart As Long
   Dim tEnd As Long
   Dim lngCounter As Long
   
   tStart = Timer
   For lngCounter = 1 To 10 '500
      Application.CalculateFull
   Next lngCounter
   tEnd = Timer
   MsgBox tEnd - tStart
End Sub