Hyperlinking

[Blsgw]

Ok guys, here is my question to you all :P

Currently using the code:

Sub CopySheet()
Dim LR As Long
With Sheets("Sheet13")
    LR = WorksheetFunction.Max(5, .Range("B" & Rows.Count).End(xlUp).Row + 1)
    Sheets("New Brand Page").Range("C5").Copy Destination:=Sheets("Brands").Range("B" & LR)
    Sheets("Brands").Range("B5:B" & LR).Sort Key1:=Sheets("Brands").Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    .Copy after:=Worksheets(Worksheets.Count)
End With
ActiveSheet.Name = Sheets("New Brand Page").Range("C5").Value
End Sub

Now, I would like to extend this code, so that when it copies the sheet and renames it, it hyperlinks the new sheet to the corresponding text it has placed in B5 of the sheet "brands" is this possible?

 

[Blsgw]

bump

 

[Blsgw]

bump