Here’s a more complete function which isn’t as pretty, but will handle many more variations of links:

‘::Auto-Link Function
Function AutoLink(str,target)

‘split into multiple ‘words’
If IsNull(str) OR str = “” Then Exit Function
str = Split(Trim(str))

‘loop through and process each ‘word’
For wCnt = 0 To UBound(str)
wStr = str(wCnt)

‘check for url wString
If (Left(LCase(wStr),4) = “http” AND Len(wStr) > 11 AND InStr(wStr,”://”) > 0) _
OR (Left(LCase(wStr),4) = “www.” AND Len(wStr) > 11 AND InStrRev(wStr,”.”) > 4) Then
arrChar = “! 0 Then
lwStr = Right(wStr,Len(wStr)-locChar+1)
wStr = Left(wStr,locChar-1)
Exit For
End If
Next
If InStr(LCase(wStr),”http://”) = 0 Then pwStr = “http://”
wStr = “” & wStr & “” & lwStr

‘check for email wString
ElseIf (InStr(wStr,”@”) > 0 AND len(wStr) > 4 _
AND InStr(wStr,”@”) = InStrRev(wStr,”@”) _
AND InStr(wStr,”href=mailto:”) <= 0) Then
wStr = "” & wStr & “”
End If

‘save newly formatted ‘word’
str(wCnt) = wStr
Next

‘combine and return completely formatted string
AutoLink = Join(str)
End Function

a) One of the first results of my query in Google
a) Works like a charm!

Thanks a lot