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"
wrote in message
...
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