Time Stop while SubRoutine executing

Hi,

How to make the Time will be showing continuously updating while other subroutine is running?
I have problem the Time is stop while the subroutine is executing.
Thank you in advance for your helps.
File as reff.

Iqballhud

This seems to work well enough:

Dim showTime As Boolean  ' whether or not the timeloop should run

Private Sub btnCopyCells_Click()
    
    ' copy some cell data - like normal
    Dim rowIndex As Long
    
    For rowIndex = 7 To 16
        Sheet1.Cells(rowIndex, 5).Value = Sheet1.Cells(rowIndex, 3).Value
        DoEvents ' include this in your other subroutine to allow the clock to run
    Next rowIndex
    
End Sub

Private Sub btnStart_Click()

    ' begin displaying the current time until the button
    ' is clicked again to stop the time
    Dim s As Single
    Dim theTime As Double
    Dim displayTime As Variant
    
    If btnStart.Caption = "Start Clock" Then
        ' switch the caption on the button so it can be used to stop the time
        btnStart.Caption = "Stop Clock"
        showTime = True
        DoEvents  ' this comment instructs VBA to allow Excel to refresh the display
    Else
        ' stop the clock and switch back to a start button
        btnStart.Caption = "Start Clock"
        showTime = False
        DoEvents
    End If
    
    ' show the current time, using the timer()
    Do Until Not showTime
        s = Timer()
        theTime = s / (86400)
        displayTime = Format(theTime, "hh:mm:ss")
        Sheet1.Cells(1, 1).Value = displayTime
        DoEvents
    Loop

End Sub

A video of it working https://1drv.ms/v/s!AkG6_LvJpkR7j61W...S5umQ?e=sgnZsy

Hi,

Thank you so much for "jdelano" & "MikeVol".
To MikeVol, yes you are right, i didn't added the time on the DoEvents procedure. It's working fine now.
To jdelano, another way to do coding. I wish I will use this code for another projects.

Again thank you so much Guys.

Cheers, Iqballhud

You're welcome, I'm glad you got your code working.