I have a simple macro in a workbook named "daily info" that activates when i
click a button, the macro opens a workbook called "Phonebook" both of these
workbooks are contained in the same folder called "my reports". What i need
is a macro that will look inside the folder called "my reports" even if i
move this folder to another place on my computer. In effect only looking
inside the immediate folder. I hope this makes sense.
Thanks for any help

Use thisworkbook.Path to get the path of the workbook containing the macro
and use it to open the desired file.

-------------------------------------
Pl. click ''Yes'' if this was helpful...



"jackrobyn1" wrote:

I have a simple macro in a workbook named "daily info" that activates when i
click a button, the macro opens a workbook called "Phonebook" both of these
workbooks are contained in the same folder called "my reports". What i need
is a macro that will look inside the folder called "my reports" even if i
move this folder to another place on my computer. In effect only looking
inside the immediate folder. I hope this makes sense.
Thanks for any help

As I recorded the macro with the macro recorder im not sure what to do with
the information you have given me, can you explain or give an example
Thanks

"Sheeloo" wrote:

Use thisworkbook.Path to get the path of the workbook containing the macro
and use it to open the desired file.

-------------------------------------
Pl. click ''Yes'' if this was helpful...



"jackrobyn1" wrote:

I have a simple macro in a workbook named "daily info" that activates when i
click a button, the macro opens a workbook called "Phonebook" both of these
workbooks are contained in the same folder called "my reports". What i need
is a macro that will look inside the folder called "my reports" even if i
move this folder to another place on my computer. In effect only looking
inside the immediate folder. I hope this makes sense.
Thanks for any help

Are you looking in that folder for the file named PhoneBook.xls?

Dim PBWkbk as workbook
Dim PBName as string

PBName = "phonebook.xls"

set pbwkbk = nothing
on error resume next
set pbwkbk = workbooks.open(filename:=thisworkbook.path & "\" & pbname
on error goto 0

if pbwkbk is nothing then
msgbox pbname & " wasn't found in " & thisworkbook.path
else
msgbox "It opened!
end if



jackrobyn1 wrote:

I have a simple macro in a workbook named "daily info" that activates when i
click a button, the macro opens a workbook called "Phonebook" both of these
workbooks are contained in the same folder called "my reports". What i need
is a macro that will look inside the folder called "my reports" even if i
move this folder to another place on my computer. In effect only looking
inside the immediate folder. I hope this makes sense.
Thanks for any help

--

Dave Peterson

Great thanks

"Dave Peterson" wrote:

Are you looking in that folder for the file named PhoneBook.xls?

Dim PBWkbk as workbook
Dim PBName as string

PBName = "phonebook.xls"

set pbwkbk = nothing
on error resume next
set pbwkbk = workbooks.open(filename:=thisworkbook.path & "\" & pbname
on error goto 0

if pbwkbk is nothing then
msgbox pbname & " wasn't found in " & thisworkbook.path
else
msgbox "It opened!
end if



jackrobyn1 wrote:

I have a simple macro in a workbook named "daily info" that activates when i
click a button, the macro opens a workbook called "Phonebook" both of these
workbooks are contained in the same folder called "my reports". What i need
is a macro that will look inside the folder called "my reports" even if i
move this folder to another place on my computer. In effect only looking
inside the immediate folder. I hope this makes sense.
Thanks for any help

--

Dave Peterson