With ActiveSheet For Each cel In .Range("B2", .Range("B" & .Rows.Count).End(xlUp)) .Hyperlinks.Add Anchor:=.Cells(cel.Row, cel.Column), Address:=cel.Offset(, 2) & "/" & cel & cel.Offset(, -1) Next cel End With