Olá

O que quero fazer:
Um Botão que me gere um gráfico em questão sobre a área que eu selecionar.

O que o código a baixo faz?
Cria um gráfico sobre os dados em ("b2:d5")

Resumo:
quero poder selecionar á area que eu quiser, então ativar a macro e ter como retorno o gráfico, talvez para vocês
seja algo até simples.

Sub liquidez_carteira()
'
' liquidez_carteira Macro
' grafico para liquidez carteira
'

'
    Range("B2:D5").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ApplyChartTemplate ( _
        "C:Documents and Settingsfernando_candidoDados de aplicativosMicrosoftModelosChartsOPR_Liquidez_Carteira.crtx" _
        )
    ActiveChart.SetSourceData Source:=Range( _
        "'Gráfico Liquidez de carteira'!$B$2:$D$5")
    ActiveSheet.Shapes("Gráfico 2").IncrementLeft -232.5
    ActiveSheet.Shapes("Gráfico 2").IncrementTop 35.25
    ActiveChart.PlotArea.Select
    ActiveChart.ChartArea.Select
    ActiveChart.Parent.Delete
End Sub
Sub TESTE()
'
' TESTE Macro
'

'
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ApplyChartTemplate ( _
        "C:Documents and Settingsfernando_candidoDados de aplicativosMicrosoftModelosChartsLIQUIDEZ_CARTEIRA_RELATORIO_GERENCIAL.crtx" _
        )
    ActiveChart.SetSourceData Source:=Range( _
        "'Gráfico Liquidez de carteira'!$B$2:$D$5")
End Sub

Vlw ae!