If you have Excel 2000 or later

Dim varr as Variant
Dim sStr as String
Dim i as Long

varr = Split(Application.Path,"\")
sStr = ""
for i = 0 to ubound(varr)-1
sStr = sStr & i & ": " & varr(i) & vbNewLine
Next
msgbox sStr

--
Regards,
Tom Ogilvy


GEORGEBEKOS wrote in message
...

IS THERE A WAY TO GET FOLDER NAMES FROM PATH TO EXCEL WITHOUT THE FILES
IN THEM
(ONLY THE FOLDER NAMES)


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/