Não existe uma ferramenta no Excel que faz isso.
É possivel fazer uma POG (Programação Orientada a Gambiarra) rs...
Coloque em uma celula em uma sheet oculta o numero 0
Depois no evento open do workbook coloque o seguinte código.
Private Sub Workbook_Open()
Dim sht As Worksheet
Set sht = ThisWorkbook.Sheets("Plan1")
With sht
If .Cells(1, 1).Value <= 10 Then
.Cells(1, 1).Value = .Cells(1, 1).Value + 1
Else
Application.Quit
End If
End With
Set sht = Nothing
End Sub
Abraço
Postado : 06/09/2012 4:37 am