Question : Resubmitting with correct file attached!: How to Hyperlink Column of UPS Tracking Numbers in Excel to UPS Webpage

I am resubmitting this question with the correct file attached!!: I need to Hyperlink a column of UPS Tracking numbers in an Excel file to their corresponding Tracking & P.O.D. information on the UPS website. I was previously given the following code for doing this task with FedEx tracking numbers and it works wonderfully! I, myself, tried to modify the code to do the same task for UPS tracking, but was pathetically unable. I am attaching a file with both FedEx & UPS spredsheets. The FedEx file has the macro inserted to show the tracking hyperlinked as needed. The UPS file does not, hence the help that is needed! Thanks so much in advance!
 Here is the FedEx version of the code:

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
Code Snippet:
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

Answer : Resubmitting with correct file attached!: How to Hyperlink Column of UPS Tracking Numbers in Excel to UPS Webpage

Check your last post...I've fix the code to work with the UPS links instead of the Fedex.

Cal

Random Solutions  
 
programming4us programming4us