Sub addHypers()
For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
If cell "" Then
ActiveSheet.Hyperlinks.Add cell, "http://" + cell.Value
End If
Next cell
End Sub
Sub addHypers()
For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
If cell "" Then
ActiveSheet.Hyperlinks.Add cell, "http://" + cell.Value
End If
Next cell
End Sub
Sub addHypers()
For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
If cell "" and cell.Column = 2 Then
ActiveSheet.Hyperlinks.Add cell, "http://" + cell.Value
End If
Next cell
End Sub