Hi
HAve seen a answer from Bob Phillips and try this
Sheets("Ark1").Select
cLastRow = Cells(Rows.Count, "B").End(xlUp).Row

Range("A1:B" & cLastRwo).Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Ark1").Range("A1:B" &
cLastRwo), PlotBy:= _
xlRows
ActiveChart.Location Whe=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
But get an error in
Range("A1:B" & cLastRwo).Select

CAn someone help here ?

Alvin