Вам в правила (размер файла)

ой, сорри ) чет не расчитал с кодом для примера.  
модеры - удалите, пожалуйста, файл  
вот код:  
 
Option Explicit  
Sub test1()  
Dim i As Long  
For i = 1 To 20000  
Range("A" & i) = 1  
Next i  
End Sub  
 
Sub test2()  
Dim i As Long  
For i = 1 To 20000  
Range("B" & i) = 2  
Next i  
End Sub  
 
Sub main()  
'сюда вставить начало таймера  
Dim tm!: tm = Timer  
Call Module1.test1  
Call Module1.test1  
'окончание таймера в минутах  
UserForm1.Label1.Caption = Format™  
UserForm1.Show  
End Sub

функция Timer возвращает число секунд, прошедших с полуночи.  
 
поэтому Вам, во-первых, нужна разница между двумя значениями этой функции, а, во-вторых, Format тут не пройдёт.  
 
либо так:  
t1:=Now  
...  
t2:=Now  
...=Format(t2-t1,"ttttt")  
 
либо эдак:  
t1:=Timer  
...  
t2:=Timer  
...=Format((t2-t1)*60,"##0")

{quote}{login=ъ}{date=30.01.2012 02:00}{thema=}{post}функция Timer возвращает число секунд, прошедших с полуночи.  
 
поэтому Вам, во-первых, нужна разница между двумя значениями этой функции, а, во-вторых, Format тут не пройдёт.  
 
либо так:  
t1:=Now  
...  
t2:=Now  
...=Format(t2-t1,"ttttt")  
 
либо эдак:  
t1:=Timer  
...  
t2:=Timer  
...=Format((t2-t1)*60,"##0"){/post}{/quote}  
можете вставить в пример?

гм...  
ну я уже не знаю...  
 
UserForm1.Label1.Caption = Format((Timer - tm) / 24 / 60 / 60, "nn:ss")

Скажите пажалуста можно ли формат ячеек ка небуть виставить минута:секунды:милисекунды типа 1:09.044

вроде можно с tochkoi "  1:09.044  " но если отнят 01:07.261 то пишет "знач" вместо 1.583

а лучше посмотрите мой пример:

ясно. post_302954.xls даже не открывали.  
ок, на Ваших данных:

Всё бы харошо, но как зделать штобы при дваином клике на ячеику он не менял цыфры.

гм... :)))  
я, конечно, понимаю, что это похоже на ерунду, но, возможно, стоит попробовать вводить минуты-секунды в одну ячейку, а миллисекунды - в соседнюю?  
 
короче - посмотрите файл (зеленая табличка), может быть, Вас устроит такое решение?

с допстолбцом - вполне возможно :)