VBA Add Hyperlinks

Sub Macro3()

Dim sht As Excel.Worksheet
Dim rge As Excel.Range
Dim switch As String

Set sht = Excel.Worksheets("SUMMARY")

lastRow = sht.Range("B65536").End(xlUp).Row

For i = 3 To lastRow
    Set rge = sht.Range("B" & i)
    switch = rge.Value
    sht.Hyperlinks.Add Anchor:=rge, Address:="", SubAddress:= _
        "'" & switch & "'!C2", TextToDisplay:=switch
Next i
End Sub