Hi Alvin,

This worked for me. Copied your code and it worked fine. I knocked off the
select and activate since it doesn't seem to be needed and worked the same.

So in reality, I have offered no solution 'cept it worked for me. Or at
least produced a chart of some kind.

Sub ChartIt()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Ark1") _
.Range("A1:A5,D1:D5"), PlotBy:=xlRows
ActiveChart.Location Whe=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub

HTH
Regards,
Howard

"alvin Kuiper" wrote in message
...
Hi
I have this in a Macro
It works before when i try
but now when i record a new macro it dosn't work
Her it is
Sheets("Ark1").Select
Range("A1:A5,D1:D5").Select
Range("D1").Activate
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Ark1").Range("A1:A5,D1:D5"),
_
PlotBy:=xlRows
ActiveChart.Location Whe=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With


My error is in Range("A1:A5,D1:D5").Select
the same error if i forget
Sheets("Ark1").Select

Hope someone can help

Alvin