Link Spin Button To Active Cell

I've got a problem with the used spinbuttons. The code I used (see below)allows the user to choose a column (with the option button(A,B,C,D,E) in which changes would be made and than changes the value of the given cell according to the name of the spinbutton (which specifies the row). This forces me to use about 80 spinbuttons in a single sheet, and the whole workbook comprises of over 30 sheets pumping the whole file to a size of over 3 MB. To reduce the file size I need a code that would link a master spinbutton (one per sheet) to any active cell (the "just clicked one")

Private Sub sel(ByRef Column As String)
For Each obj In Application.ActiveSheet. OLEObjects
If obj.progID = "Forms.SpinButton.1" Then
obj.LinkedCell = Column & (Val(Mid$(obj.Name, 11)) + 3)
End If
Next obj
End Sub

Private Sub OptionButton1_Click()
sel "b"
End Sub

Private Sub OptionButton2_Click()
sel "c"
End Sub