On 9 June, 12:41, "steve" wrote:
You only need to check if one of the files is on the F drive and it will
open them all.
Otherwise it will open them all from the G drive.

Sub test()
If Len(Dir("f:\Direct Payments DOT\1 payments cheryl.xls")) 0 Then
* * Workbooks.Open ("f:\Direct Payments DOT\1 payments cheryl.xls")
* * Workbooks.Open ("f:\Direct Payments DOT\1 payments Sandra.xls") '
* * Workbooks.Open ("f:\Direct Payments DOT\1 payments Liv.xls")
* * Workbooks.Open ("f:\Direct Payments DOT\1 payments Sally.xls")
* * Workbooks.Open ("f:\Direct Payments DOT\0.5 yearly paymentplanner..xls")
Else
* * Workbooks.Open ("g\Direct Payments DOT\1 payments cheryl.xls")
* * Workbooks.Open ("g\Direct Payments DOT\1 payments Sandra.xls") '
* * Workbooks.Open ("g\Direct Payments DOT\1 payments Liv.xls")
* * Workbooks.Open ("g\Direct Payments DOT\1 payments Sally.xls")
* * Workbooks.Open ("g\Direct Payments DOT\0.5 yearly paymentplanner.xls")
End If
End Sub

Regards
* Steve

"Johnnyboy5" wrote in message

...
On 9 June, 10:43, "steve" wrote:





I'll let you fill in the filenames, but this will check if a file exists
in
F drive.
If it exists it will open it.
If not will open it from G.
There is no error checking so if you forget to plug the drive in or it has
another drive letter it won't work.

Sub test()
If Len(Dir("f:\test.xlsx")) 0 Then
Workbooks.Open ("f:\test.xls")
Else
Workbooks.Open ("g:\test.xls")
End If
End Sub

Regards
Steve

"Johnnyboy5" wrote in message

...

How do I add another drive to search for when loading the workbooks
listed below.

Problem is when I use these files on my pen drive at home / work and
other PCs the pen might be recognised as a different drive letter on
each one.

I only need it look in say "f" and "g" and that will do the job.

Many thanks

John

EXAMPLE

Workbooks.Open ("f:\Direct Payments DOT\1 payments cheryl.xls")
Workbooks.Open ("f:\Direct Payments DOT\1 payments Sandra.xls") '
Change as required
Workbooks.Open ("f:\Direct Payments DOT\1 payments Liv.xls")
Workbooks.Open ("f:\Direct Payments DOT\1 payments Sally.xls")
Workbooks.Open ("f:\Direct Payments DOT\0.5 yearly payment
planner.xls")- Hide quoted text -

- Show quoted text -

Hi

Couldn't wait so tried to do it in work.

not sure how i should be writing this code out, * is it .... ?

Sub test()

* * If Len(Dir("g:\Direct Payments DOT\1 payments cheryl.xls")) 0
Then
* * * * Workbooks.Open ("g:\Direct Payments DOT\1 payments
cheryl.xls")

* * * * Else
* * * * Workbooks.Open ("f:\Direct Payments DOT\1 payments
cheryl.xls")

* * If Len(Dir("g:\Direct Payments DOT\1 payments Sandra.xls")) 0
Then
* * * * Workbooks.Open ("g:\Direct Payments DOT\1 payments
Sandra.xls")

* * Else
* * * * Workbooks.Open ("f:\Direct Payments DOT\1 payments
Sandra.xls")

ECT *ECT

Workbooks.Open ("f:\Direct Payments DOT\1 payments Liv.xls")
Workbooks.Open ("f:\Direct Payments DOT\1 payments Sally.xls")
Workbooks.Open ("f:\Direct Payments DOT\0.5 yearly payment
planner.xls")

End If
End Sub

thanks

John- Hide quoted text -

- Show quoted text -

Awesome ! thanks V V much -

John.