Macro para inserir hyperlink em célula selecionada (Excel)

[jrlara7]

Boa tarde, 

 

Em uma pasta de trabalho, possuo uma planilha que contém uma lista de serviços e outra (modelo) para composição de preços.
Após ter determinado os serviços da lista, seleciono o código de um dos serviços desta lista e ativo uma macro que cria uma nova planilha (baseada na modelo existente) renomeando esta com o código do serviço selecionado.

 

Ex: C001 = Serviço 01 da lista, após utilizar a macro eu terei uma nova planilha chamada C001 (com a estrutura da planilha Modelo).

 

Após criada esta nova planilha, necessito de uma macro que, ao criar uma nova planilha de composição de preço, também fosse criado um hyperlink na célula (selecionada) do código utilizado que possa me direcionará à esta planilha criada (C001).

 

Ex: C001 = Serviço 01 da lista, a célula que contém o código utilizado será um link para a planilha C001 criada.

 

Pesquisei aqui no fórum alguns modelos e cheguei a um resultado próximo, mas só consegui criar o hyperlink em um Range fixo.
Segue abaixo a macro e espero que seja possível solucionar este empasse.

Desde já agradeço.

 

Sub CriaNomeiaHyper()
Dim planBase, planNova As String
Dim plan As Worksheet, flg As Boolean
    planBase = ActiveSheet.Name
    nomePlan = ActiveCell.Value
        
        For Each plan In Worksheets
        If plan.Name Like nomePlan Then flg = True: Exit For
        Next
If flg = True Then
    MsgBox "Já existe a planilha  " & "'" & _
    nomePlan & "'" & ",  altere o nome desejado"
Else
    Sheets("Modelo").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = nomePlan
    Range("b7").Value = ActiveSheet.Name
    ActiveSheet.Hyperlinks.Add Anchor:= _
    Sheets(planBase).Range("A1"), Address:="", _
        SubAddress:="'" & ActiveSheet.Name _
            & "'!B1", TextToDisplay:=ActiveSheet.Name
End If
End Sub