Let's say that in column A we have URLs and in column B we have website names:


http://www.cnn.com news
http://www.microsoft.com microsoft

Then the following code:


Sub CreateShortCut()
Dim oWSH As Object
Dim oShortcut As Object
Dim sPathDeskTop As String
For i = 1 To 2
Set oWSH = CreateObject("WScript.Shell")
sPathDeskTop = oWSH.SpecialFolders("Desktop")
Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & _
Cells(i, 2).Value & ".lnk")
With oShortcut
.targetpath = Cells(i, 1).Value
.Save
End With
Set oWSH = Nothing
Set oShortcut = Nothing
Next
End Sub

Will create two internet shortcuts on the desktop.

This is an adaptation of the code Bob Phillips posted last month.

http://www.microsoft.com/communities...c-1c3bd832bbd6

Change the For loop to match the number of your entries.
--
Gary''s Student


"Ray" wrote:

I have a spreadsheet containing these two columns: Website, URL

In the Website column, I have entries like this:
1888PetMeds.com - America's Pet Health Resource

In the URL column, I have corresponding URLs like this:
http://1888petmeds.com/

I want to create an individual URL file, bearing the Website name, that
contains the URL contents. For example, the file with this name:
1888PetMeds.com - America's Pet Health Resource.url

would have these contents:

[InternetShortcut]
URL=http://1888petmeds.com/

when viewed in Notepad. I would then be able to click on the PetMeds
shortcut and watch as Firefox opens the PetMeds webpage.

My question: how can I convert each row of the spreadsheet so as to
create the corresponding URL shortcut file, as shown above?