excel - referencia inválida

[Alline Távora Miranda]

Bom dia, estou com uma planilha onde criei um indice através da Macro.

Porém, onde os títulos contem traço (exemplo: DNP1011-041) quando clico no hiperlink da "Referência inválida"

Existe alguma forma de corrigir isso?

 

Muito obrigada

 

Macro utilizada

 

Sub Cria_Indice()

Dim Plan_TT, Plan_Atual As Integer

Plan_TT = Sheets.Count
Plan_Atual = 1

Do While Plan_Atual <= Plan_TT

Cells(Plan_Atual, 1).Activate
ActiveCell.Value = Sheets(Plan_Atual).Name

Link_Ativo = Sheets(Plan_Atual).Name & "!A1"
Nome_Link_Ativo = Sheets(Plan_Atual).Name

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Link_Ativo, TextToDisplay:=Nome_Link_Ativo

Plan_Atual = Plan_Atual + 1

Loop

End Sub

[Basole]

Segue com as alterações....

Acrescentei aspas simples no endereço no nome da aba: 

Sub Cria_Indice()
Dim Plan_TT, Plan_Atual As Integer
Plan_TT = Sheets.Count
Plan_Atual = 1

Do While Plan_Atual <= Plan_TT

  Cells(Plan_Atual, 1).Activate
    ActiveCell.Value = Sheets(Plan_Atual).Name
      Link_Ativo = "'" & Sheets(Plan_Atual).Name & "'!A1"
      Nome_Link_Ativo = Sheets(Plan_Atual).Name

      ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Link_Ativo, TextToDisplay:=Nome_Link_Ativo
    Plan_Atual = Plan_Atual + 1

  Loop

End Sub