I have the following.

Sub test1()
' Find what the users shared drive is named
Dim mainpath As String
Dim lenPath As Integer
Dim outstring As String
mainpath = ThisWorkbook.FullName
lenPath = Len(mainpath) - 17

outstring = Mid(mainpath, WorksheetFunction.Find("_", mainpath) + 1,
WorksheetFunction.Find _
(" ", mainpath, WorksheetFunction.Find("_", mainpath)) -
WorksheetFunction.Find("_", mainpath) - 1)

mainpath = ""
lenPath = Blank
End Sub

I have run this and get the following error message "1004. Unable to
get the find property of the worksheetfuntion class" any ideas?


--
funkymonkUK
------------------------------------------------------------------------
funkymonkUK's Profile: http://www.excelforum.com/member.php...o&userid=18135
View this thread: http://www.excelforum.com/showthread...hreadid=538371