Set source data for a Map

[tiredofit]

I recorded some code to change the source data for a chart:

    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$B$3")

but when I changed the chart from a column chart to a map, I get the folowing error message:

run-time error 445

Object doesn't support this action

What is wrong?

Thanks