Excel Como fazer macro para vincular Hiperlink a uma aba da planilha

[paulo merlim]

Bom dia a todos. Estou fazendo uma planilha onde preciso vincular celulas que tem o mesmo nome de abas com hiperlink. 

 

Hoje essas abas já temos macros para cria-las e renomea-las. dai preciso criar o hiperlink manualmente.

 

se alguém conseguir me ajudar pois terei que criar mais de 130 abas e hiperlinks por semana.

Controle de OSs Calibração.rar

[Muca Costa]

Tente assim:

Sub Duplica_e_Renomeia()
Dim Plan As Worksheet
Dim NovaPlan As Worksheet
Dim P As String
Set DuplPlan = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    
    With ActiveSheet
        P = .Cells(.Rows.Count, "F").End(xlUp).Row + 1
    End With
    
    DuplPlan = InputBox("Digite o nome da planilha que deseja duplicar:", "DUPLICAR PLANILHA!")
    'Faz uma cópia da planilha
    Sheets(DuplPlan).Copy After:=Sheets(ThisWorkbook.Worksheets.Count)

Set Plan = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    Plan.Name = InputBox("Digite o nome da nova planilha:", "NOVA PLANILHA!", Plan.Name)
    MsgBox "Planilha " & Plan.Name & " foi criada!"
    
    Sheets("OS's").Select
    Range("F" & P).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        Plan.Name & "!A1", TextToDisplay:=Plan.Name
End Sub

 

[paulo merlim]

obrigado Muca Costa... Funcionou perfeitamente.