Atualização de Gráfico Automaticamente

[andregiordano43]

Bom dia!

Estou desenvolvendo um código em VBA para que quando a pessoa clique no botão ele identifique automaticamente a(s) última(s) linhas inserida na planilha e atualize um gráfico. Para tanto, programei as linhas abaixo:

Sub Macro2()

    Range("A1").Select
    Sel = Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select


    ActiveSheet.ChartObjects("Gráfico 1").Activate
    ActiveChart.SetSourceData Source:=Range(Sel)
    MsgBox "Gráfico Atualizado !!!", vbOKOnly, "Aviso!"

End Sub

Porém, me é apresentado o seguinte erro:

"O Método Range do Objeto Global Falhou"

Alguém tem alguma sugestão para resolução deste problema?

Abraços!!!

Editado Junho 25, 2010 por kuroi
Adicionar tag CODE

[kuroi]

em q linha isso??

se for na do setdatasource, tenta isso:

ActiveChart.SetSourceData Source:=Sel

[andregiordano43]

Já tentei selecionar dessa forma.

O erro é apresentado na linha citada por você. (Onde define-se o range para o gráfico)

Quando deixo a linha citada como "=Sel" apenas, o erro é o seguinte:

"Erro em tempo de execução 424:

O objeto é obrigatório"

Att,

André