Normalmente o localizar /substituir do excel dá conta do recado

Olá, penso que não. faz em fórmulas, mas não em hiperligações.

Posta um arquivo modelo

Obrigado, aqui. É um simples calendário

Experimente

Sub AlteraHyp()
Dim hL As Hyperlink, mhL As Hyperlinks
Set mhL = ActiveSheet.Hyperlinks
For Each hL In mhL
    hL.Address = VBA.Left(hL.Address, Len(hL.Address) - 1) & "m"
Next
End Sub

Dá este erro

Testei no modelo que postou, e rodou Ok; porem a planilha deve estar desprotegida

Testei aqui, o erro ocorreu também. Entretanto, o código do Reinaldo está Ok para substituir o hiperlink de todas as células. O único problema que ocorre é quando o código tenta alterar o hiperlink daquele único botão "Voltar ao menu principal", que na verdade não é um botão mas um Shape (Rectangle 1). Aí a propriedade Address deixa de estar disponível como de leitura e gravação e passa a ser somente leitura (mesmo tentando alterar através do shape, usando hL.Shape.Hyperlink.Address = ... Talvez mais alguém queira contribuir com o tópico e resolver isso).

Sugiro então alterar manualmente o hiperlink daquele "botão" e usar o código do Reinaldo somente acrescentando a estrutura condicional:

Sub AlteraHyp()
  Dim hL As Hyperlink, mhL As Hyperlinks
  Set mhL = ActiveSheet.Hyperlinks
  For Each hL In mhL
     If hL.Type = msoHyperlinkRange Then
       hL.Address = VBA.Left(hL.Address, Len(hL.Address) - 1) & "m"
     End If
  Next
End Sub

Saudações e boas festas a todos!

Pessoal, obrigado, resolveu.