Simple timing measurements in VBA

[cappy2112]

Normally I am using a named range plus this code

Public Sub perform_task()
    Range("runtime_start").Value = Now()
    task1
    task2
    task3
    Range("runtime_end").Value = Now()
End Sub

Then a third cell returns Range("runtime_end").Value minus Range("runtime_start").Value

Thanks to everyone who replied.
It's starting to come back to me now