sub conta_1_to_10()
   for n =1 to 10
     cells(1,1).value2 = n
   next
end sub

pelo codigo pode ver que seu pedido está um tanto sem sentido
Range("A1")=10 daria no mesmo

não é nem falta de planilha de exemplo é total falta de detalhe do que vc realmente quer

Edcronos boa noite, obrigado por me atender, você tem razão está faltando informação, então vamos lá.

Edcronos e como se fosse um cronômetro com o progresso de tempo em segundos, mas não pode ser no formato de horas, após clicar no botão a macro inicia o "cronômetro" do 1 a 10 terminando a execução a célula A1 ficará com o valor 10.

Espero que tenha sido mais claro.

silva_jmp

tente isso

em um modulo

Sub Ativacontagem()

Cells(1, 1).Value2 = 1
cronometro

End Sub


Sub cronometro()

Dim TimeConta As Date
 If Cells(1, 1).Value2 < 10 Then
   TimeConta = Now + TimeValue("00:00:01")
   Application.OnTime EarliestTime:=TimeConta, Procedure:="soma1"
 End If

End Sub

Sub soma1()

Cells(1, 1).Value2 = Cells(1, 1).Value2 + 1
cronometro

End Sub

o botão para ativar a contagem vc coloca a macro "Ativacontagem"

Edcronos, desculpa por não dar feedback antes, mas deu certo, era isso que eu esperava.

Valeu.

silvajmp