Hello all

Thanks for your help.

Could you please help me in applying your method to my requirement.

I am printing my string with the following command.
"Worksheets("Design Steps").Cells(row_no, 7).Cells.Value = test_exec_dir"

How to integrate it with your below suggession (especially Range("A1") )???

Hyperlinks.Add Anchor:=Range("A1"), Address:= _
"C:\Documents and Settings\All Users", TextToDisplay:= _
"""C:\Documents and Settings\All Users"""

Thanks to all
Sri

brzak wrote:
Hello

[quoted text clipped - 13 lines]
--
Message posted via OfficeKB.comhttp://www.officekb.com/Uwe/Forums.aspx/excel-programming/200811/1

Sub HyperLinkToFolder()
Dim ShtName as String ' the name of the sheet containing the
hyperlink
ShtName = "Sheet1"

Sheets(ShtName).Hyperlinks.Add _
Anchor:=Sheets(ShtName).range("A1"), Address:= _
"C:\Documents and Settings\All Users", _
TextToDisplay:= "Hyper Link to a folder", _
ScreenTip:="Click Me"

End Sub

Enjoy

Brz

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200811/1