Duvida na macro VBA

[ian suguimati]

Bom diaaa

Estou a dias batendo a cabeça tentando arrumar essa macro que faz gráficos limitados ao intervalo de de duas datas obtidas em duas textbox

ate a parte de achar a linha esta funcionando, o maior problema esta na hora de gerar o grafico, que sempre da o erro "metodo "cells" do objeto "_global" falhou

segue a rotina.

Sempre que para de executar a macro o erro indica a parte que esta em italico

e ai alguém tem ideia do que esta errado?

vlw ai galera

Private Sub torre1(ByVal data1 As String, ByVal data2 As String)

Dim Busca1 As Range

Dim Ocorrencia1 As String

Dim Ocorrencia2 As String

Dim X As Integer

Dim y As Integer

'Executa a busca

Set Busca1 = Plan2.Cells.Find(What:=data1, After:=Range("A1"), LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

MatchCase:=False, SearchFormat:=False)

'Caso tenha encontrado alguma ocorrência...

If Not Busca1 Is Nothing Then

X = Busca1.Row 'Lista o primeiro resultado na variavel

Else 'Caso nada tenha sido encontrado, exibe mensagem informativa

msgbox "Nenhum resultado para '" & data1 & "' foi encontrado."

End If

'Executa a busca

Set Busca2 = Plan2.Cells.Find(What:=data2, After:=Range("A1"), LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

MatchCase:=False, SearchFormat:=False)

'Caso tenha encontrado alguma ocorrência...

If Not Busca2 Is Nothing Then

y = Busca2.Row

Else 'Caso nada tenha sido encontrado, exibe mensagem informativa

msgbox "Nenhum resultado para '" & data1 & "' foi encontrado."

End If

Charts.Add

ActiveChart.ChartType = xlColumnClustered

ActiveChart.SetSourceData Source:=Sheets("Plan2").Range(Cells(X, 58), Cells(y, 54)).Select, _

PlotBy:=xlColumnsActiveChart.Location Where:=xlLocationAsObject, Name:="Plan1"

[benzadeus]

Não tenho como testar, mas experimente trocar

ActiveChart.SetSourceData Source:=Sheets("Plan2").Range(Cells(X, 58), Cells(y, 54)).Select, _
PlotBy:=xlColumnsActiveChart.Location Where:=xlLocationAsObject, Name:="Plan1"

por

ActiveChart.SetSourceData Source:=Sheets("Plan2").Range(Cells(X, 58), Cells(y, 54)), _
PlotBy:=xlColumnsActiveChart.Location Where:=xlLocationAsObject, Name:="Plan1"