script for buttons

[Old Kiap]

Can anyone assist me please. I was using Lotus script in Lotus 123 but wish
to change to using Excel Lotus I was using was :-
Sub Click(Source As Buttoncontrol)
[ACTYPE].Select
Selection.Contents = "Pull Up"
End Sub

Am trying to enter the text "Pull Up" into a cell in Excel by clicking on a
button.
Tks

 

[Gary''s Student]

Here is something for a Forms-button:

Sub Button1_Click()
'
' Button1_Click Macro
' Macro recorded 11/16/2009 by James Ravenswood
'

'
Range("G19").Value = "1"
End Sub