---

Hej

Jeg har denne function i en macro i excel , der virker fint
sub
--Loop 10 times

Sheets.Add

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=410, Top:=476.25, Width:=71.25,
Height:=21).Select

ActiveSheet.OLEObjects("CommandButton1").Object.Caption = "Click here"

--next
End sub


Men hvordan får jeg denne function ind på hvert nyt ark ??
Private sub Command1_clik()
call Thisfunction
end sub