Cliff, thanks for the help. It seems to work fine - not quite what I
was looking for but it works. I will have to test it on the network but
I do not see why it would not work.

I was hoping for the folder directory to open up so the user could pick
the file name from the list of file. Since the macro is pointing at
that folder and by-pass the browse it would have sped up the process.

Again, thanks for your help.

Dennis
<<<<<<<<<<<<<<<<<<< <<<<<<<<<<<<<<<<<<

"Clif McIrvin" wrote in
:

"Dennis" wrote in message
47...
I have a strange issue with creating hyperlinks on desktops but not on
lap tops.

We received some new laptops at work that run on Windows 7 OS and
Microsoft Office 2007. We also had some desktops that were UPGRADED
from
Windoxs XP to Windows 7 and Microsoft Office 2007.

The issue is that when I create a hyperlink on the desktop and I use
the
browse to drill down to the network folder where the file is kept, it
takes (no jokes) 2 to 3 minutes to open the folder directory. Since
the
folder containing the files I need to hyperlink to is a few folders
deep
it takes over 10 minutes to create a hyperlink. The problem is with
hyperlinks only. If I browse on File/Open... there is no delay
drilling
down to the folder I need to get to.

If I create the hyperlink on the laptop, there is no delay in opening
the
folders directories (2 - 3 seconds per folders).

My IT group is working on resolving the issue but in the meantime I
am trying to create a macro that would open the folder where the
files are
kept without browsing and be able to select the file I want to link
to.

I used the macro recorder to create a hyperlink but I am forced to
select
a specific file (macro would always put a hyperlink to the same
file), I
can't figure out how to be able to select a different file every
time.

I'd appreciate any anyone could give me.

Dennis


So you have some macro code that includes a line that looks something
like this:

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\Documents and Settings\Cliff\My Documents\Daily
Activity.csv", _
TextToDisplay:= _
"C:\Documents and Settings\Cliff\My Documents\Daily
Activity.csv"

You have several options - if you want the macro to pop a dialog box
so the user can type in a filename you could try:

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
InputBox("Enter filename to link to"), _
TextToDisplay:= _
"C:\Documents and Settings\Cliff\My Documents\Daily
Activity.csv"

If you want the filename to be in a cell in the active worksheet you
could use the currently selected cell like this:

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
ActiveCell, _
TextToDisplay:= _
"C:\Documents and Settings\Cliff\My Documents\Daily
Activity.csv"

Or you could point to a specific cell like this:

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
ActiveSheet.Range("A1"), _
TextToDisplay:= _
"C:\Documents and Settings\Cliff\My Documents\Daily
Activity.csv"


or using a named range like this:

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
ActiveSheet.Range("NameOfNamedRange"), _
TextToDisplay:= _
"C:\Documents and Settings\Cliff\My Documents\Daily
Activity.csv"

HTH!