Get Value From Cell

This is invalid syntax, but how would I modify it to work?

Sub You_Mean_Something_Like_This()
Dim lr As Long, i As Long
lr = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lr
	ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Cells(i, 2).Value"!A1"
Next i
End Sub