Thank you very much Nick ,you are very helping.
I gotta test it today ,....

Thanks and Regards
Ruth

Can i thank you Nick for this help , but i m unable to run this excel module/button in Excel 2003?

Can you please make this running in MS Excel 2003?

Hi,

I want to suggest another solution to add link with the following subroutine.

Note: Before run the code look at into VBE menu Tools -> References... whether Microsoft Scripting Runtime is checked.

Here's the subroutine:

' ************************* ' ************************* '

Sub AddLinkToFavorites(strLinkAddress As String, strLinkName As String)

    Dim strFavoritesPath As String
    Dim strFilePath As String
    Dim oFileSystem As FileSystemObject
    Dim oTextStream As TextStream
   
    On Error GoTo ERROR_HANDLER
   
    strFavoritesPath = Environ("USERPROFILE") & "\Favorites\"
    strFilePath = strFavoritesPath & strLinkName & ".url"
   
    Set oFileSystem = New FileSystemObject
    Set oTextStream = oFileSystem.CreateTextFile(strFilePath)
   
    oTextStream.WriteLine Text:="[InternetShortcut]"
    oTextStream.WriteLine Text:="URL=" & strLinkAddress
    oTextStream.Close

EXIT_SUB:
    Set oTextStream = Nothing
    Set oFileSystem = Nothing
   
    Exit Sub

ERROR_HANDLER:
    ' Some code for error handling
    Err.Clear
    GoTo EXIT_SUB

End Sub

' ************************* ' ************************* '

You can call it, for example:

' ************************* ' ************************* '

Sub Main()

    Const LINK_ADDRESS As String = "http://www.excelexperts.com"
    Const LINK_NAME As String = "ExcelExperts"
   
    Call AddLinkToFavorites(LINK_ADDRESS, LINK_NAME)

End Sub

' ************************* ' ************************* '

or from a Button_Click event.

Best regards.

love the concept...
; - )

have a look at these:

http://excelexperts.com/VBA-Tips-Email-Workbook
http://excelexperts.com/Outlook-Email