Displaying total runtime of Macro

[Bob Phillips]

In fact you can tidy it up a lot

Sub Expected_Update_Data()
Dim timet1 As Double
timet1 = Now
Call Update_Expected(Range("S1")) ' For Jun07
    With Worksheets("Expected")
        .Range("B1").Value = "EXPECTED macro completed at " & Format$(Now, "dd/mm/yyyy h:mmam/pm")
        .Range("B3").Value = "The entire process took " & _
            Format$((timet2 - Now) / 86400, "h:mm:ss") & " hours."
    End With
End Sub