1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
Sub track() Cells(1, 1).Select Do ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.fedex.com/Tracking?tracknumbers=" & ActiveCell.Value ActiveCell.Offset(1, 0).Select Loop While (Not ActiveCell.Value = "") End Sub
Check your last post...I've fix the code to work with the UPS links instead of the Fedex.
Cal