Acabei fazendo por macro

Sub APL_Direita()
    cs = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row - 1
    If Cells(cs, 4).Value2 > 1 Then Cells(cs, 4).Value2 = Cells(cs, 4).Value2 - 1 Else Cells(cs, 4).Value2 = 50
End Sub

Sub APL_Esqueda()
    cs = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row - 1
    If Cells(cs, 4).Value2 < 50 Then Cells(cs, 4).Value2 = Cells(cs, 4).Value2 + 1 Else Cells(cs, 4).Value2 = 1
End Sub

tentei de todas as formas bolar uma formula para inverter a contagem, sem inverter a ordem dos valores mas...
ainda ajudou pq eu queria uma contagem em loop mesmo

Que tal:
(Valor Máximo dela)+1 - (Valor Atual dela)
Digo, se ela varia de 1 a 50.
Supondo que a barra de rolagem esteja ligada à célula A1. E vc tem outra fórmula na célula B1.
Então quando vc seleciona na barra de rolagem e o valor é 1 na A1, a outra célula apontaria 50...
Quando vc seleciona na barra de rolagem e o valor é 2 na A1, a outra célula apontaria 49 ...
E assim por diante.
Então a fórmula em B1 seria:
=50+1-A1

Isso se vc usar o spinbutton ou a scrollbar do ActiveX, que permitem ligá-las diretamente nas células, sem o uso de qualquer macro para o controle.