Mailto / Attach... Button to do so?
 

Its half there..

Private Sub CommandButton001_Click()
fileToOpen = Application.GetOpenFilename("All Files (*.*),*.*")
If fileToOpen < False Then
MsgBox "Open " & fileToOpen
End If
End Sub

All that does is display a msg box with file name that you have clicke
on. What I need it to do is actually embed that file into a cell i
excel

--
Siggsy00
-----------------------------------------------------------------------
Siggsy007's Profile: http://www.excelforum.com/member.php...fo&userid=1452
View this thread: http://www.excelforum.com/showthread.php?threadid=26152