I have a worksheet that will be used for manual data entry with tablet
PCs. However, my users are complaining about the buttons being "too
small." Since they are only tallying order quantities, what I really
need is a single button that increments the cell by +1. While this can
be done easily enough, it requires code to be written for each button.
I need to be able to make hundreds of buttons very quickly and assign
each of them to their own cell. Here is what I have written that
inserts the spinners. I need a better solution though. Help.

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


--
Nathan77
------------------------------------------------------------------------
Nathan77's Profile: http://www.excelforum.com/member.php...o&userid=26553
View this thread: http://www.excelforum.com/showthread...hreadid=398165