Please help with this chart

[alvin Kuiper]

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 Where:=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

[alvin Kuiper]

Sorry
Stupid error
have find it

Alvin


"alvin Kuiper" wrote:

> 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 Where:=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
>
>