Hi All,

This code checks the file path of workbook as it should be always on shared
drive.

Function PathAndName() As Boolean

Dim WBPath As String

WBPath = ThisWorkbook.Sheets("Data").Range("B3").Value
'the string length is more the 100 carectors in length.

If ThisWorkbook.Path < WBPath Then

MsgBox "This workbook is not correct path."
Exit Function

End If

End Function

This small funtion is troubling me a lot. It works on some machines and it
doesnt work on some. Some times it works on my machine and some times i
doesnt.

Kindly help
Heera Chavan

The function doesn't return a value and if on a worksheet will not run since
no parameter is pass to the function. worksheet functions only get called
when a dependency is updated. The dependency is the passed parameter which
doesn't exist.

Function PathAndName() As Boolean

Dim WBPath As String

WBPath = ThisWorkbook.Sheets("Data").Range("B3").Value
'the string length is more the 100 carectors in length.

If ThisWorkbook.Path < WBPath Then

MsgBox "This workbook is not correct path."
PathAndName = False
else
PathAndName = True
End If

End Function


I would change the code to pass B3

=PathAndName(Data!B3)

Function PathAndName(WBPath as string) As Boolean

'the string length is more the 100 carectors in length.

If ThisWorkbook.Path < WBPath Then

MsgBox "This workbook is not correct path."
PathAndName = False
else
PathAndName = True
End If

End Function



"Heera Chavan" wrote:

Hi All,

This code checks the file path of workbook as it should be always on shared
drive.

Function PathAndName() As Boolean

Dim WBPath As String

WBPath = ThisWorkbook.Sheets("Data").Range("B3").Value
'the string length is more the 100 carectors in length.

If ThisWorkbook.Path < WBPath Then

MsgBox "This workbook is not correct path."
Exit Function

End If

End Function

This small funtion is troubling me a lot. It works on some machines and it
doesnt work on some. Some times it works on my machine and some times i
doesnt.

Kindly help
Heera Chavan

Apart from Joel's observations, I suspect that the "works on some
machines and it doesnt work on some" come from the shared drive
location. Perhaps some machines have a different drive letter for the
drive or have the folder mapped differently.

I did a google for 'unc path excel vba' and the very first entry proved
the most useful:
'dailydoseofexcel'
(http://www.dailydoseofexcel.com/arch...6/21/unc-path/)

Specifically this:
application.CommandBars("Web").Controls("Address:" ).text

Now all you need to do is replace B3 with the UNC path of the file.

As an aside, there was also a possibly useful tip (I've not explored
it) at
'spyjournal.biz'
(http://www.spyjournal.biz/techtips/2...s-in-urls.html)

p45cal

Heera Chavan;553727 Wrote:
Hi All,

This code checks the file path of workbook as it should be always on
shared
drive.

Function PathAndName() As Boolean

Dim WBPath As String

WBPath = ThisWorkbook.Sheets("Data").Range("B3").Value
'the string length is more the 100 carectors in length.

If ThisWorkbook.Path < WBPath Then

MsgBox "This workbook is not correct path."
Exit Function

End If

End Function

This small funtion is troubling me a lot. It works on some machines and
it
doesnt work on some. Some times it works on my machine and some times
i
doesnt.

Kindly help
Heera Chavan


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=152645

Microsoft Office Help

Hi Joel,

Thanks for your reply.
Its not a worksheet function.
My problem is in the following code If ThisWorkbook.Path < WBPath Then.
the above mentioned code is not working sometimes.

Regards
Heera Chavan

I've posted a resonse to this half an hour ago here
http://www.thecodecage.com/forumz/ex...t-working.html
but it's not coming through to this site
--
p45cal


"Heera Chavan" wrote:

Hi Joel,

Thanks for your reply.
Its not a worksheet function.
My problem is in the following code If ThisWorkbook.Path < WBPath Then.
the above mentioned code is not working sometimes.

Regards
Heera Chavan

Hi P45cal,

Thank you....your answer was quite near....but I understood cause after
going trough the post.

appriciate your work.....

"p45cal" wrote:

I've posted a resonse to this half an hour ago here
http://www.thecodecage.com/forumz/ex...t-working.html
but it's not coming through to this site
--
p45cal


"Heera Chavan" wrote:

Hi Joel,

Thanks for your reply.
Its not a worksheet function.
My problem is in the following code If ThisWorkbook.Path < WBPath Then.
the above mentioned code is not working sometimes.

Regards
Heera Chavan