#DEFINE xlRows 1 #DEFINE xlColumns 2 ActiveChart.SetSourceData(Sheets("Sheet1").Range("A1:B3"), PlotByRows)
#DEFINE xlLocationAsNewSheet 1 #DEFINE xlLocationAsObject 2 #DEFINE xlLocationAutomatic 3 ActiveChart.Location(xlLocationAsObject, "Sheet1")HTH