Olá, @willianrc.

Puramente por fórmula desconheço alguma maneira de fazer.

Sem VBA dá pra fazer razoavelmente* bem com Botão de Rotação/SpinButton ou Barra de Rolagem/ScroolBar, respectivamente dos Controles de Formulário e Controles ActiveX (Guia Desenvolvedor > grupo Controles > Inserir).

No exemplo usei um par de SpinButtons (AcX).

*Disse razoavelmente bem pq mesmo encobrindo com um retângulo a metade, não consegui esconder o outro lado das setinhas no momento em que se clica nelas. Mas fica do jeito certo ao se clicar fora delas. Se algum colega tiver algum truque pra isso, fiquem à vontade para contribuir tb.

@edsonbr muito obrigado por responder. 

Mas foi o que eu pensei, procurei por dias algo que nao existe. Se alguem souber, por favor compartilhe seu conhecimento.

Eu tentei fazer um exemplo mas esta aparecendo um erro 'Tipos incompatíveis'. Alguém me ajuda ai?

@willianrc, boa tarde.

A Propriedade Range.Text é somente leitura, vc não pode atribuir valor a ela. Tem que usar a .Value ou .Value2. Sugestão:

Private Sub CommandButton1_Click()
  If IsDate(Range("D6").Value) Then Range("D6").Value = Range("D6").Value - 7
End Sub
Private Sub CommandButton2_Click()
  If IsDate(Range("D6").Value) Then Range("D6").Value = Range("D6").Value + 7
End Sub

Pergunta: chegaste a ver o anexo que enviei? Não foi usado VBA nele.

Edit:

Naquele arquivo que te enviei no post anterior, se vc quiser um salto de 7 em 7 dias, é só alterar a propriedade SmallChange para 7 em cada um dos dois botões: na guia Desenvolvedor, ative primeiro o botão "Modo de Desing" e o botão ao lado, "Propriedades" e clique sobre os botões. Role até a propriedade mencionada, altere o valor, saia do modo de Design e feche Propriedades.

@edsonbr Fiz as alteraçoes no seu exemplo, ficou show de bola, muito obrigado por compartilhar seu conhecimento. Um forte abraço.