Olá meus caros!

A situação é a seguinte:

Tenho 2 Abas em uma pasta: "REGISTRO DE PROJETOS" : onde ficam armazenados todos os novos registros efetuados.
"PROJETO 16000" : é a planilha referência para as novas que serão geradas.

Com um formulário de cadastro eu registro alguns dados e ao confirmar o mesmo, ele me gera uma nova aba com uma cópia da planilha pré-definida "PROJETO 16000".
Ex.: "PROJETO 16000 (2)","PROJETO 16000 (3)","PROJETO 16000 (4)",ect

Este formulário registra alguns dados na planilha "REGISTRO DE PROJETOS" para futuro controle de projetos.
Para cada novo registro é gerado um número em uma coluna da planilha "REGISTRO DE PROJETOS". Ex.: 16001, 16002, 16003, etc..

Onde está o meu problema?
Eu preciso que toda vez que eu gerar um novo cadastro, o programa me gere automaticamente um hiperlink daquela NOVA ABA criada e que esse hiperlink fique registrado no meu "REGISTRO DE PROJETOS", para que toda vez que eu quiser consulta-lo eu tenha o acesso por um Hiperlink para cada projeto.

Eu gravei uma Macro com esses passos, só que o hiperlink que é toda vez inserido é sempre referenciado para mesma planilha. Ou seja, eu cadastrei o projeto 16002 e o hiperlink gerado é da aba "PROJETO 16000 (2)" = Esse passo OK. Quando cadastro o projeto 16003 acontece o problema, ele cria a aba "PROJETO 16000 (3)", mas o hiperlink criado fica referenciado a planilha "PROJETO 16000 (2)".

Isso acontece porque esta definido no meu programa a referencia do hiperlink sempre a mesma e eu não sei fazer para o programa sempre atribuir o hiperlink a nova planilha criada. Abaixo esta o programa que tenho. Alguém sabe a solução deste problema??

------------------------------------------------------------------------------------------------------------------------
Sub CopyPlan()

' Macro1 Macro

Sheets("PROJETO 16000").Select

Sheets("PROJETO 16000").Copy After:=Sheets(7)
Sheets("REGISTRO DE PROJETOS").Select

linha = 8

Do Until Sheets("REGISTRO DE PROJETOS").Cells(linha, 6) = ""
linha = linha + 1
Loop

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'PROJETO 16000 (2)'!A1", TextToDisplay:="'PROJETO 16000 (2)'!A1"
End Sub
-----------------------------------------------------------------------------------------------------------