Geoff,
Maybe this...
'------------
Sub ClickAndGo()
Dim strPath As String
Dim strName As String

strName = "readme.html"
strPath = "C:\Program Files\Zone Labs\ZoneAlarm\readme.html"
Range("B7").Value = "=Hyperlink(""" & strPath & """,""" & strName & """)"
End Sub
'------------

Jim Cone
San Francisco, USA



wrote in message
ups.com
Hi There
Can anyone help me with the code required to display the local HTML
file named in the selected (clicked on) cell?
I do not want a button. I just want the user to be presented with the
HTML file that they are working on, after clicking on a cell.
Would really appreciate your help. I am using 2002.
Regards
Geoff