Kikardo

Boa Tarde Pessoal, Estou com dois problemas. Tenho uma Planilha que busca dados externos de um site, e retorna os valores na Celula A1 da Aba "DADOS". porém ele atualiza de 1 em 1 minuto que é o tempo minimo que o assitente de importação permite, preciso que seja atualizado de 10 em 10 segundos. Na minha outra Aba Tabela, fiz uma macro bem simple que copia 3 celulas da Aba "DADOS" para a uma linha copia os dados e cria uma nova linha. Esta Macro deve ser executada a cada 10 segundos e utilizei o codigo com dTime = Now + TimeSerial(0, 0, 10) Application.OnTime dTime, "RODAR" Ela funciona perfeitamente está segunda parte, porém se abro outro Arquivo do excel ela trava e dá erro. Gostaria de poder deixa-lá rodando apenas nesta planilha, em "segundo Plano". Vou postar o Código apesar de bem simples abaixo: Sub RODAR() Sheets("DADOS").Select Range("D102").Select Range("D102:D104").Select Application.CutCopyMode = False Selection.Copy Sheets("TABELA").Select Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Range("A3").Select ActiveCell.FormulaR1C1 = "=NOW()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Rows("3:3").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove dTime = Now + TimeSerial(0, 0, 10) Application.OnTime dTime, "RODAR" End Sub Obrigado desde Já! Se quiserem posto a planilha para entendimento. Segue a Planilha em anexo. Bet Fair 1 minuto.rar