Hi, im not sure if ive understood this correctly, its my understandin
that you pass the function a variable containing the path and filenam
and the function just looks at the folder part of it? I can't seem t
get it to work. ive tried the below. Thanks

Public Sub findFolder()
pathandfilename = Application.GetOpenFilename
folder (pathandfilename)
End Sub

Public Function folder(FullFileNameIncludingPath)
Dim fs As Object
Set fs = CreateObject("scripting.filesystemobject")
folder = fs.getfolder(FullFileNameIncludingPath)
End Functio

--
cereldin
-----------------------------------------------------------------------
cereldine's Profile: http://www.excelforum.com/member.php...fo&userid=3206
View this thread: http://www.excelforum.com/showthread.php?threadid=53674