Hi unmarkedhelicopter and
agarwaldvk,

Thanks so much for your replies.

The codes worked really well. I dodn;t know of the timer facility.

How does one convert the runtime in hours e.g. 0:45 hours displayed as opposed to 2700 seconds?

Also I tried the following code, It did not like the last line:
Sub Expected_Update_Data()
'Dim timet1 As Single
timet1 = Format$(Now, "h:mm:ss")
Call Update_Expected(Range("S1")) ' For Jun07
Sheets("Expected").Activate
ActiveSheet.Range("A1").Select ' Finish off at EXPECTED cell A1 once macro runs completely
ActiveSheet.Range("B1").Value = "EXPECTED macro completed at " & Format$(Now, "dd/mm/yyyy h:mmam/pm")
timet2 = Format$(Now, "h:mm:ss")
ActiveSheet.Range("B3").Value = "The entire process took " & Format$(timet2 - timet1, "h:mm:ss") & " hours."
End Sub
Any ideas as to why the last line does not display the output?

Kind regards and thanks for your help.