Macro not running properly on other systems

Dea all,

I am facing some very strange problem

I have written a very simple macro to select all the chart objects on active sheet. On my pc it is running fine selecting all the available graphs on the active sheet. but when I run this macro on my office system it used to select only the last graph on the sheet, not all.

what can be the reason for this strange behaviour?
Please help in this regard.

Code is as follows:
Sub SelectAllchart()
ActiveSheet.ChartObjects.Select
End Sub

Be sure to work off of the same file. Otherwise, I don't see why it would not work properly. Be sure to check that you have more than one chart on the activesheet.

Code:

---

MsgBox ActiveSheet.ChartObjects.Count

---