Hi

Why don't you just do the following
Sub main()

Cells(1, 1).NumberFormat = "[h]:mm:ss;@"
Cells(1, 1) = Format(Time, "hh:mm:ss")

Call Functioname(x, y, z)

Cells(2, 1).NumberFormat = "[h]:mm:ss;@"
Cells(2, 1) = Format(Time, "hh:mm:ss")

Timee = Cells(2, 1) - Cells(1, 1)
Cells(2, 1).NumberFormat = "[h]:mm:ss;@"
Cells(3, 1) = Format(Timee, "hh:mm:ss")


End Sub


--
karnak
------------------------------------------------------------------------
karnak's Profile: http://www.excelforum.com/member.php...o&userid=28918
View this thread: http://www.excelforum.com/showthread...hreadid=502368