Autogem fortsættelse

Goddag

Opfølgning på allans autogem problem: http://www.eksperten.dk/spm/799389

Jeg har et stykke tid let efter en tilsvarende autogem makro, blot med den forskel, at jeg ikke ønsker at den gamle makro overskrives, men at der i stedet f.eks hver femte minut gemmes en ny version på computeren der ikke overskrives. Har forsøgt mig med nedenstående kode uden held. Er der nogen der kan lokaliserer problemet?

Sub autogem()
M = 1
sti = "'I:\diverse\vba\autogem_" & M & ".xls'"
M = M + 1
Cells(1, 1) = sti
ActiveWorkbook.SaveAs Filename:=sti, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
Application.OnTime TimeValue("00:00:10) + Now, "autogem"
End Sub 


(programmet er i ovenstående test version sat til at gemme hver 10. sekund)

Venlig hilsen
Jarl