Indirect Naming of Workbooks

[jnix]

You all have helped me in indirect naming of my worksheets, now is it possible to name a workbook based on a field in that workbook? If so, how?
Thanks,
jnix

 

[SkipVought]

jnix,

Assuming that the name is in A1

Activeworkbook.Name = [A1]

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[jnix]

Skip:
When I try this in a macro at runtime, all it does is open another workbook.
jnix

 

[SkipVought]

I hope it opened the one you coded for!

What did you want to happen?

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[acron]

As far as I know the only way to apply a name to a workbook is to save it with the required name.

[tab]ActiveWorkbook.SaveAs [A1] & ".xls"

Or have I missed something ?

A.C.

 

[SkipVought]

duh,

You're right acron. Where is my head?

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[jnix]

Here's my macro. When I run it, it opens a new workbook, but doesn't save anything.

Sub Worksheet_Name()



Worksheets("Base&quot.Name = Range("k1&quot
Worksheets("1st Quarter&quot.Name = Range("K1&quot & " 1st Quarter"
Worksheets("2nd Quarter&quot.Name = Range("K1&quot & " 2nd Quarter"
Worksheets("3rd Quarter&quot.Name = Range("K1&quot & " 3rd Quarter"
Worksheets("4th Quarter&quot.Name = Range("K1&quot & " 4th Quarter"

ActiveWorkbook.SaveAs (K1) & ".xls"

End Sub

Any suggestions will be appreciated
Thanks,
jnix

 

[henio]

jnix,

I assume that you are trying to name your sheets, so they are presumably sheet1, etc.

Try:

Sub Worksheet_Name()

Worksheets("Sheet1&quot.Name = Range("K1&quot
Worksheets("Sheet2&quot.Name = Range("K1&quot & " 1st Quarter"
Worksheets("Sheet3&quot.Name = Range("K1&quot & " 2nd Quarter"
Worksheets("Sheet4&quot.Name = Range("K1&quot & " 3rd Quarter"
Worksheets("Sheet5&quot.Name = Range("K1&quot & " 4th Quarter"

ActiveWorkbook.SaveAs (K1) & ".xls"

End Sub

hth

Henio

 

[xlbo]

try this
myPath = "C:\"
ActiveWorkbook.SaveAs myPath & [K1] & ".xls"


Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244