Sub M_snb()
  sheet1.oleobjects("combobox1").object.list=Array("cat", "dog", "fish", "bird")

  for j=2 to 12
    sheet1.oleobjects("combobox" & j).object.list=sheet1.oleobjects("combobox1").object.list
  next
End Sub
NB. The use of '.clear' in combination with '.List' is redundant: '.List' replaces the existing List.