Kopi af faneblad med Makro

Jeg bruger nedenstående makro til at oprette ny fane og navngive den efter værdien i ("Prosjekter").Range("B11:B500")dette virker fint. men vil gerne have lidt mere i den makro :)

Den nye fane, kan det være en kopi af "Master" men stadig navngivet efter værdien i ("Prosjekter").Range("B11:B500")???
Kan den samtidig lave cellen hvor den får værdien fra i ("Prosjekter").Range("B11:B500") om til et hyperlink til det nyoprettet faneblad??

Håber en har løsningen..

Sub Nyfaneautomatisk()
'
' Nyfaneautomatisk Makro
'

'
Sub MakeSheets()
Dim rg As Range
Dim sh As Worksheet
Dim temp, bfound As Boolean
Application.ScreenUpdating = False
Set rg = Sheets("Prosjekter").Range("B11:B500")
'indsæt
For Each c In rg
    If Len(c) > 0 Then
        If Not SheetExist(c.Text) Then
            Set sh = Worksheets.Add(After:=Sheets(Worksheets.Count))
            sh.Name = c.Value
        End If
    End If
Next
'slet
temp = rg
'spring de første 68 ark over
For x = 69 To ActiveWorkbook.Worksheets.Count
    bfound = False
    For y = 1 To UBound(temp, 1)
        If temp(y, 1) <> "" Then
            If Worksheets(x).Name = CStr(temp(y, 1)) Then
                bfound = True
                Exit For
            End If
        End If
    Next
   
    If bfound = False Then
        Application.DisplayAlerts = False
        Worksheets(x).Delete
        Application.DisplayAlerts = True
    End If
Next
Sheets("Prosjekter").Select
Application.ScreenUpdating = True
End Sub

Function SheetExist(shname) As Boolean
Dim x As Object
    On Error Resume Next
    Set x = ActiveWorkbook.Sheets(shname)
    If Err = 0 Then SheetExist = True Else SheetExist = False
End Function