'' Remove any series created with the chart Set rngDataSource = rngDataSource.CurrentRegion ' expand to data range including active cell MsgBox 'Please select a data range and try again.', _ If Not TypeName(Selection) = 'Range' Then ' assumes first row of input range has series
' assumes subsequent columns have X values ' assumes first column of input range has Y values Select the range of data, or select a single cell within that range, and run the code. Here's a simple VBA routine that creates an XY Scatter chart from data that is arranged with Y in the first column and one or more sets of X in subsequent data.
