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

--
Gary''s Student - gsnu200908


"Old Kiap" wrote:

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