Hi Hans,

Am Wed, 12 Dec 2012 06:00:49 -0800 (PST) schrieb Hans Hamm:

Here is the opening code:
With Sheet6
.Shapes.AddChart.Select
ActiveChart.ChartType = xlCylinderBarClustered
ActiveChart.SetSourceData Source:=Range("A" & lFirstRow & ":B" & lLastRow)
End With

all ranges between "With Sheet6" and "End With" must have a point in
front of the range keyword, e.g. .Range("A".... or .cells(1,1) to
refere them to the sheet


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2