Macros and Charts

To get the supplier names, we need to swap the final two lines of code

ActiveChart.SetSourceData Source:=Sheets("Working sheet").Range("B2:B8")
ActiveChart.SeriesCollection(1).XValues = "='Working sheet'!R2C1:R8C1"

The problem with the error will be due to the chart being the selected item when the macro was run. Cells only exist on the worksheet.

The code works by working through your list of suppliers and if a new one is found adding a new row into the working sheet. If an existing one is found then it adds one to the total. There is then a sort and the source data for the graph is set.

Hope this helps.