Всем привет  
Вопрос, как сделать это:  
 
Private Sub SpinButton_Change()  
SpinButton.Max = 5  
SpinButton.Min = 0  
SpinButton.SmallChange = 1  
If SpinButton.Value = 0 Then  
SpinButton.Value = 4  
End If  
If SpinButton.Value = 5 Then  
SpinButton.Value = 1  
End If  
   If SpinButton.Value = 4 Then  
   [C16].Value = "Фильтр по группе"
   [C17].Value = "Фильтр по имени"
   [C18].Value = "Фильтр по заказу"
   [D17].Value = "Фильтр по реализации"
   End If  
   If SpinButton.Value = 3 Then  
   [C16].Value = "Фильтр по реализации"
   [C17].Value = "Фильтр по группе"
   [C18].Value = "Фильтр по имени"
   [D17].Value = "Фильтр по заказу"
   End If  
   If SpinButton.Value = 2 Then  
   [C16].Value = "Фильтр по заказу"
   [C17].Value = "Фильтр по реализации"
   [C18].Value = "Фильтр по группе"
   [D17].Value = "Фильтр по имени"
   End If  
   If SpinButton.Value = 1 Then  
   [C16].Value = "Фильтр по имени"
   [C17].Value = "Фильтр по заказу"
   [C18].Value = "Фильтр по реализации"
   [D17].Value = "Фильтр по группе"
   End If  
[c24].Value = SpinButton.Value
End Sub  
 
Только по-человечески