File Browse Function (Open dialog box for choosing file)

Hi all-

I tried searching through the forum but couldn't find answer:

I want to add a command button to a form where if a user clicks it a file browse window comes up (like for opening a file) and if a user navigates through and selects a file I assign the path to this file as a hyperlink to an entry in a spreadsheet - so that a future user can open this file just by clicking on the link.

I learned how to assign hyperlink by doing a macro record, but do not know how to incorporate file browse function. any help would be much appreciated.

Hi b-123,

Something like this should work for you:

Sub Demo()
Dim vFilePath As Variant

vFilePath = Application.GetOpenFilename(FileFilter:= _
"Microsoft Excel Files (*.xls), *.xls", Title:= _
"Please select a file to hyperlink.")

If vFilePath <> False Then
With Sheet1
.Hyperlinks.Add Anchor:=.Range("A1"), _
Address:=vFilePath
End With
End If
End Sub

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]


b-123 wrote:
> Hi all-
>
> I tried searching through the forum but couldn't find answer:
>
> I want to add a command button to a form where if a user clicks it a
> file browse window comes up (like for opening a file) and if a user
> navigates through and selects a file I assign the path to this file as
> a hyperlink to an entry in a spreadsheet - so that a future user can
> open this file just by clicking on the link.
>
> I learned how to assign hyperlink by doing a macro record, but do not
> know how to incorporate file browse function. any help would be much
> appreciated.