With ActiveSheet
Set Spinner = .Shapes("Spinner 1").ControlFormat
Spinner.Min = 5
Spinner.Max = 10

End With


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=165099

Microsoft Office Help