VBA Hyperlinking

[Blsgw]

Ok guys, new question for you all... 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

How can I change this so when it puts the data into B5 (Which is the name of the new copy of the worksheet "sheet13") it hyperlinks it from B5 on brands to the new worksheet?

 

[Blsgw]

Anyone?