Sub timeChecker(targetWS, Optional repeat As Long = 10)
 
Dim dStart As Double
Dim dRunTime As Double
Dim dAvg As Double
Dim sResult As String
Dim Arr As Variant: Dim A As Variant
 
ReDim Arr(1 To repeat)
 
For x = 1 To repeat
    dStart = Timer
    targetWS.Calculate
    dRunTime = Timer - dStart
    Arr(x) = dRunTime
Next
 
x = 1
For Each A In Arr
    sResult = sResult & x & "차 테스트 : " & Format(A, "0.0000초") & vbNewLine
    x = x + 1
    dAvg = dAvg + A
Next
dAvg = dAvg / repeat
 
MsgBox "평균 실행시간 : " & Format(dAvg, "0.0000초") & _
        vbNewLine & vbNewLine & "----- 테스트 내역 -----" & vbNewLine & _
        sResult
 
End Sub