This code creates a bar chart using the selected range as the data source.
VBA Code:
Sub CreateBarChart()
Dim chartSheet As Worksheet
Dim chartObject As ChartObject
Dim dataRange As Range
Set chartSheet = Worksheets.Add
Set chartObject = chartSheet.ChartObjects.Add(Left:=10, Width:=300, Top:=10, Height:=300)
Set dataRange = Selection
With chartObject.Chart
.ChartType = xlColumnClustered
.SetSourceData dataRange
End With
End Sub