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