Добрый день.
Наверное, как-то так:
Private Sub SpinButton1_Change() 'Выпадающий список 1
Dim i&
i = Me.SpinButton1.Value
With Range("B10")
.Value = Range(Mid(.Validation.Formula1, 2))(i, 1).Value
End With
End Sub
Private Sub SpinButton2_Change() 'Просто счетчик
Range("D3").Value = Range("B2:B6")(Me.SpinButton2.Value, 1).Value
End Sub
Private Sub SpinButton3_Change() 'Выпадающий сисок 2
Dim i&
i = Me.SpinButton3.Value
With Range("E15")
.Value = Split(.Validation.Formula1, ";")(i - 1)
End With
End Sub