Option Explicit
Public Time1 As Double, Time2 As Double
Public Next1 As Long, Next2 As Long
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Sub StartAll()
Range("B2:H3").ClearContents
Time1 = GetTickCount()
Time2 = GetTickCount()
Next1 = 2
Next2 = 2
End Sub
Sub Start1()
Range("B2:H2").ClearContents
Time1 = GetTickCount()
Next1 = 2
End Sub
Sub Lap1()
If Next1 < 9 Then
Cells(2, Next1) = Int(GetTickCount() - Time1) / 86400 / 1000
Time1 = GetTickCount()
Next1 = Next1 + 1
End If
End Sub
Sub Start2()
Range("B3:H3").ClearContents
Time2 = GetTickCount()
Next2 = 2
End Sub
Sub Lap2()
If Next2 < 9 Then
Cells(3, Next2) = Int(GetTickCount() - Time2) / 86400 / 1000
Time2 = GetTickCount()
Next2 = Next2 + 1
End If
End Sub