automatically create a spinner and link it when a button is pressed

For my gcse coursework in ICT i need to create a button which will insert a new row while doing this i need it to create a spinner. i can do this but i am having problems getting it to link it to the cell automatically please help.

Sub Macro1()
Dim spn As Spinner
Dim rng as Range
Set spn = _
ActiveSheet.Spinners.Add(265.5, 128.25, 21, 15)
Set rng = spn.TopLeftCell
spn.LinkedCell = rng.Address(external:=False)
End Sub


--
Regards,
Tom Ogilvy


"jamesleggit" <[email protected]>
wrote in message
news:[email protected]...
>
> For my gcse coursework in ICT i need to create a button which will
> insert a new row while doing this i need it to create a spinner. i can
> do this but i am having problems getting it to link it to the cell
> automatically please help.
>
>
> --
> jamesleggit
> ------------------------------------------------------------------------
> jamesleggit's Profile:
http://www.excelforum.com/member.php...o&userid=23892
> View this thread: http://www.excelforum.com/showthread...hreadid=375294
>

While the insertion of a new row is not in this one, you may find a couple of useful aspects in this:

Sub SpinnerBuilder()
'
' SpinnerBuilder Macro
' Macro recorded 8/16/2005 by Nathan
'

With ActiveCell.Select
Col = ActiveCell.Address
Xloc = ActiveCell.Top
Yloc = ActiveCell.Left
CelHeight = ActiveCell.Height
End With
'
ActiveSheet.Spinners.Add(Yloc, Xloc, 9, CelHeight).Select
With Selection
.Min = 0
.Max = 30000
.SmallChange = 1
.LinkedCell = Col
.Display3DShading = True
.PrintObject = False
End With
With ActiveCell.Select
Selection.ClearContents
End With
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub