Whilst looking on microsoft's website about automation, I came across some code:
Private Sub Graph_Click()
Dim MyExcel As Object, TitleArray As Variant, DataArray As Variant
TitleArray = Array("Dogs", "Cats", "Penguins")
DataArray = Array(34, 53, 12)
Set MyExcel =...