Is this a macro?

[Dysprositos]

HI, id like to put and icon on my desktop which, when clicked, opens several different webpages and applications simultaneously.

I know i can create a shortcut to a single webpage. How do i open more?

Thanks.

 

[Dysprositos]

OK so that was pretty simple.

I added a macro to a button.
It opens every link i associate with it.

But id like the button to be on the desktop.

how can i move it there?

can i do this with vba?

 

[XL-Dennis]

Dysprositos,

Following procedure create a shortcut on the desktop:

<pre>
Option Explicit

Sub Create_Shortcut_Workbook()
Dim WSS As Object
Dim oGenvag As Object
Dim stSkrivbordsSokvag As String

Set WSS = CreateObject("WScript.Shell")
stSkrivbordsSokvag = WSS.SpecialFolders("Desktop")
Set oGenvag = WSS.CreateShortcut(stSkrivbordsSokvag & _
"" & ThisWorkbook.Name & ".lnk")

With oGenvag
.TargetPath = ThisWorkbook.FullName
Debug.Print ThisWorkbook.Path
.IconLocation = ThisWorkbook.Path & "Staroffice.ico"
.Save
End With

Set WSS = Nothing
End Sub
</pre>

Note: You need to se a reference to "Windows Host Script Model" via Tools | Reference in the VB-editor.

Kind regards,
Dennis