|
|
 |
| found 474 articles for 0.311 sec |
  |
|
| Sorry about that. I never use ChDir much, but after looking at VBA help it
appears that it will only change the active directory, but not the active
drive. Try this:
Sub Copy2()
ActiveWorkbook.Save
Sheets(Array("Ships", "Phoenicia", "Salvo Grima", "Hotels", "Hard Rock", _
"Corinthia Flight Cat", "Airest", "La Salita - Arches", _
"Lemongrass Imported", "Lemongrass Local")).Copy
|
|
 |
|
 |
Group: microsoft.public.excel.misc · Group Profile · Search for Phoenicia in microsoft.public.excel.misc
Author: JMB
Date: Sep 22, 2008 21:57
Hi JMB, Thank you for your kind response, but the macro you gave me does not do exactly what I want, when I run it the save option goes to 'My Documuments' and not the the workbook the folder is in. What I have is this: Folder named : Quotations In this folder I have another folder named 'Archive' and a worksheet named quotations. What I need is to work on the worksheets named quotations
|
| Show full article (4.14Kb) · Show article thread |
Group: microsoft.public.excel.misc · Group Profile · Search for Phoenicia in microsoft.public.excel.misc
Author: albertmb
Date: Sep 22, 2008 21:22
If you are wanting to save the new workbook in the same folder as the original you could try using Thisworkbook.Path instead. Sub Copy2() ActiveWorkbook.Save Sheets(Array("Ships", "Phoenicia", "Salvo Grima", "Hotels", "Hard Rock", _ "Corinthia Flight Cat", "Airest", "La Salita - Arches", "Lemongrass Imported", _ "Lemongrass Local")).Copy ChDir ThisWorkbook.Path ActiveWindow.Close
|
| Show full article (3.83Kb) · Show article thread |
|
|
|
1 ·
2 ·
3 ·
4 ·
5 ·
6 ·
7 ·
8 ·
9 ·
next |
|
|
