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
|