Hi All......

I have a macro which starts like this:

spath = ThisWorkbook.Path
spath = spath & "\"

'Open the Blank Master Monthly file
Workbooks.Open Filename:= _
"MonthXX_XXXXXblank.xls"
Sheets("Factory").Select

and then it goes on to do stuff..........

I move this file (both the application and the MonthXX_XXXXblank.xls file)
around from computer to computer and directory to directory and sometimes it
gives the ERROR "can't find the file", even tho the file is there by copy and
paste. If I open the file from that directory and "save as" back over
itself, then the macro finds it and runs fine. I developed the application
on Win98SE and Excel97. I just copied the directory to my Jump Drive and
took it to an XP/XP system, and it gave the error described
above......embarassing to say the least. Is there some modification I can
make to the above code to INSURE that the macro can find the file every
time,( in the same directory as the Application), even tho it's only been
copy and pasted into the directory?

TIA
Vaya con Dios,
Chuck, CABGx3

Try using

sFile=thisworkbook.path & "/MonthXX_XXXXXblank.xls"
Workbooks.Open Filename:= sFile

Tim.

"CLR" wrote in message
...
Hi All......

I have a macro which starts like this:

spath = ThisWorkbook.Path
spath = spath & "\"

'Open the Blank Master Monthly file
Workbooks.Open Filename:= _
"MonthXX_XXXXXblank.xls"
Sheets("Factory").Select

and then it goes on to do stuff..........

I move this file (both the application and the MonthXX_XXXXblank.xls
file)
around from computer to computer and directory to directory and
sometimes it
gives the ERROR "can't find the file", even tho the file is there by
copy and
paste. If I open the file from that directory and "save as" back
over
itself, then the macro finds it and runs fine. I developed the
application
on Win98SE and Excel97. I just copied the directory to my Jump
Drive and
took it to an XP/XP system, and it gave the error described
above......embarassing to say the least. Is there some modification
I can
make to the above code to INSURE that the macro can find the file
every
time,( in the same directory as the Application), even tho it's only
been
copy and pasted into the directory?

TIA
Vaya con Dios,
Chuck, CABGx3

Thank you very much Tim.............that seems to do the trick quite
nicely............

Vaya con Dios,
Chuck, CABGx3



"Tim Williams" <saxifrax@pacbell*dot*net wrote in message
...
Try using

sFile=thisworkbook.path & "/MonthXX_XXXXXblank.xls"
Workbooks.Open Filename:= sFile

Tim.

"CLR" wrote in message
...
Hi All......

I have a macro which starts like this:

spath = ThisWorkbook.Path
spath = spath & "\"

'Open the Blank Master Monthly file
Workbooks.Open Filename:= _
"MonthXX_XXXXXblank.xls"
Sheets("Factory").Select

and then it goes on to do stuff..........

I move this file (both the application and the MonthXX_XXXXblank.xls
file)
around from computer to computer and directory to directory and
sometimes it
gives the ERROR "can't find the file", even tho the file is there by
copy and
paste. If I open the file from that directory and "save as" back
over
itself, then the macro finds it and runs fine. I developed the
application
on Win98SE and Excel97. I just copied the directory to my Jump
Drive and
took it to an XP/XP system, and it gave the error described
above......embarassing to say the least. Is there some modification
I can
make to the above code to INSURE that the macro can find the file
every
time,( in the same directory as the Application), even tho it's only
been
copy and pasted into the directory?

TIA
Vaya con Dios,
Chuck, CABGx3