Hi Steve

Is the text of the hyperlink the full path ??



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Steve" wrote in message ...
Thanks Ron..

I found another problem now, the hyperlinks I insert when
don't use the full path, instead I get

..\Desktop\DW Install .doc

it works if I would use the full path and address but if
I let excel do it it will return similar things like the
above and the macro will retun an error
So my next question is, if I always use the same folder
and I want all files in that folder. If I use


.Attachments.Add ("C\MyFolder\*.*")

it will return an error saying it can't attach a folder,
is there a way to get all files in MyFolder?

Thanks,

Steve


Try this (untested)

.Attachments.Add HyperlinkAddress(Cells(1, 2))


Function HyperlinkAddress(cell)
'David McRitchie
On Error Resume Next
HyperlinkAddress = cell.Hyperlinks(1).Address
If HyperlinkAddress = 0 Then HyperlinkAddress = ""
End Function

Sub TEST()
MsgBox HyperlinkAddress(Cells(1, 2))
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Steve" wrote in
message ...
Hi,


I have some code that send an email attachment like

.Attachments.Add ("Path/filename")

instead I would like to use a hyperlink to get the text
string from, like

.Attachments.Add Cells(1, 2)

(which of course doesn't work)

where B1 would have a hyperlink with the path and
filename.

So I would like replace the ("Path/filename")
with the text string of the hyperlink in B1


Thanks,

Steve





.