GS expressed precisely :
Oops! I made a mistake. Revise as follows...


Sub ResetButtons()
Dim n As Long, v As Variant, iPos As Integer
Const sButtonData As String = _
"Button 71:BI153,Button 72:BI154,Button 73:BI155" 'edit to suit

v = Split(sButtonData, ",")
For n = LBound(v) To UBound(v)
iPos = InStr(1, v(n), ":")
With Sheets("Contest Data").Buttons(Mid$(v(n), 1, iPos - 1))
.Top = Sheets("Contest Data").Range(Mid$(v(n), iPos + 1)).Top
.Left = Sheets("Contest Data").Range(Mid$(v(n), iPos + 1)).Left
.Width = 35: .Height = 18
End With
Next 'n
End Sub

Sorry about that!

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc