Thanks for the reply. I found a macro for open file...

Sub TestIt()
NewFN = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls)
*.xls", Title:="Please select a file")
If NewFN = False Then
' They pressed Cancel
MsgBox "Stopping because you did not select a file"
Exit Sub
Else
Workbooks.Open Filename:=NewFN
End If
End Sub

....now I'm looking for something similiar that does the shortcuts
hyperlinking and send to---mail recipient (as attachment

--
gtto
-----------------------------------------------------------------------
gtton's Profile: http://www.excelforum.com/member.php...fo&userid=2472
View this thread: http://www.excelforum.com/showthread.php?threadid=38288