Hi all, The Macro below put path in cell A1 which is "F:\Documents\Data
\Record.xlsx"

Sub getpath()
Range("A1").Value = ThisWorkbook.FullName
End Sub

I work in office and we save everything on network drive. The above
file or path is actually in "\\Home\Trader\Documents\Data
\Record.xlsx". Please can any friend can help that how can I make
appear network path instead of drive path in cell A1. I tried code
below to achive what i want but there must be some way in excel vba to
get network path by code.

Sub getpath()
Range("A1").Value = "\\Home\Trader" & Right(ThisWorkbook.FullName, Len
(ThisWorkbook.FullName) - 2)
End Sub

Refer the below link on UNC path
http://support.microsoft.com/kb/160529

--
If this post helps click Yes
---------------
Jacob Skaria


"K" wrote:

Hi all, The Macro below put path in cell A1 which is "F:\Documents\Data
\Record.xlsx"

Sub getpath()
Range("A1").Value = ThisWorkbook.FullName
End Sub

I work in office and we save everything on network drive. The above
file or path is actually in "\\Home\Trader\Documents\Data
\Record.xlsx". Please can any friend can help that how can I make
appear network path instead of drive path in cell A1. I tried code
below to achive what i want but there must be some way in excel vba to
get network path by code.

Sub getpath()
Range("A1").Value = "\\Home\Trader" & Right(ThisWorkbook.FullName, Len
(ThisWorkbook.FullName) - 2)
End Sub

One more
http://www.freevbcode.com/ShowCode.asp?ID=397

If this post helps click Yes
---------------
Jacob Skaria


"K" wrote:

Hi all, The Macro below put path in cell A1 which is "F:\Documents\Data
\Record.xlsx"

Sub getpath()
Range("A1").Value = ThisWorkbook.FullName
End Sub

I work in office and we save everything on network drive. The above
file or path is actually in "\\Home\Trader\Documents\Data
\Record.xlsx". Please can any friend can help that how can I make
appear network path instead of drive path in cell A1. I tried code
below to achive what i want but there must be some way in excel vba to
get network path by code.

Sub getpath()
Range("A1").Value = "\\Home\Trader" & Right(ThisWorkbook.FullName, Len
(ThisWorkbook.FullName) - 2)
End Sub