HyperLink help please

Catalin.B · #2 12-20-2011, 08:23 AM

Code:

sub search ()
Dim vFile As Variant, MyPath As String
MyPath = Application.Substitute(ThisWorkbook.Path, "facturi", "chitantiere\", 1) '"\\Flory\D\FACTURI ,CHITANTE VPC\chitantiere"
CreateObject("WScript.Shell").CurrentDirectory = MyPath
       ChDir MyPath
       vFile = Application.GetOpenFilename("Excel Files (*.xl*)," & _
      "*.xl*", 1, "Select Excel File", "Open", False)
end sub

if you want all types of files to show simply use Application.GetOpenFileName()

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Hyperlink	Mahmuz	Word	2	05-04-2011 10:59 AM
Followed hyperlink question	dth122	PowerPoint	0	06-06-2010 07:15 PM
Hyperlink Warning	gfkbob	Outlook	0	01-23-2010 06:50 AM
Hyperlink	ltvjim	Outlook	0	03-28-2007 10:28 AM
hyperlink	scuba32	Word	0	08-24-2006 07:15 AM