Bom dia,
Estou com dificuldades para executar essa programação, ela até executa umas 2 ou 3 vezes porém após um tempo ela parace a falha de Run-timer error '13', alguém pode me ajudar o que estou fazendo errado. Segue minha programação abaixo:
Sub Calculo()
Static OldVal1 As Variant
OldVal1 = Range("H24").Value
If Range("C33").Value <> OldVal1 Then
Application.Goto Reference:="Tab_Ciclo"
0 ActiveWindow.SmallScroll Down:=3
Selection.Copy
Application.Goto Reference:="A_fim"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
ActiveCell.Offset(0, 5).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Range("A1").Select
Call Time
End If
End Sub
Sub Time()
Application.OnTime Now + TimeValue("00:00:10"), "Calculo"
End Sub