Sub clock()
For a = 1 To 5
a = Time()
Cells(1, 1).Font.Size = 16
Cells(1, 1).Font.ColorIndex = 3
Cells(1, 1).Font.Bold = True
Cells(1, 1).Interior.ColorIndex = 6
Cells(1, 1) = Hour(a) & ":" & Minute(a) & "." & Round(Second(a) / 60, 2)
PauseTime = 1
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Next a
End Sub