I would like to direct users to fill a cell in a sheet with their Login name.
The value of this cell will then be used as the filename to save the
spreadsheet.

Can anyone help me to automate this process!

I tried the following sub from a previous answer but it crashes my excel!

sub foo()
with activeworkbook
.saveas filename:=.worksheets("sheet1").range("A1").value
end with
end sub

Works for me.

Do you mean "crashes" as in shuts down?

Any error message(s)?

Do you have a sheet1?

Any invalid characters in A1?


Gord Dibben Excel MVP

On Thu, 24 Feb 2005 10:03:11 -0800, "SU" wrote:

I would like to direct users to fill a cell in a sheet with their Login name.
The value of this cell will then be used as the filename to save the
spreadsheet.

Can anyone help me to automate this process!

I tried the following sub from a previous answer but it crashes my excel!

sub foo()
with activeworkbook
.saveas filename:=.worksheets("sheet1").range("A1").value
end with
end sub

The Program Error prompt is shown followed by closure of Excel.

"Gord Dibben" wrote:

Works for me.

Do you mean "crashes" as in shuts down?

Any error message(s)?

Do you have a sheet1?

Any invalid characters in A1?


Gord Dibben Excel MVP

On Thu, 24 Feb 2005 10:03:11 -0800, "SU" wrote:

I would like to direct users to fill a cell in a sheet with their Login name.
The value of this cell will then be used as the filename to save the
spreadsheet.

Can anyone help me to automate this process!

I tried the following sub from a previous answer but it crashes my excel!

sub foo()
with activeworkbook
.saveas filename:=.worksheets("sheet1").range("A1").value
end with
end sub

I have sheet1 and have a name in cell A1.

"Gord Dibben" wrote:

Works for me.

Do you mean "crashes" as in shuts down?

Any error message(s)?

Do you have a sheet1?

Any invalid characters in A1?


Gord Dibben Excel MVP

On Thu, 24 Feb 2005 10:03:11 -0800, "SU" wrote:

I would like to direct users to fill a cell in a sheet with their Login name.
The value of this cell will then be used as the filename to save the
spreadsheet.

Can anyone help me to automate this process!

I tried the following sub from a previous answer but it crashes my excel!

sub foo()
with activeworkbook
.saveas filename:=.worksheets("sheet1").range("A1").value
end with
end sub

I don't see how the code would cause Excel to throw a Program Error then shut
down.

Any chance the users don't have permission to save to the default path?

On a Network?

Just started happening recently?


Gord

On Thu, 24 Feb 2005 11:33:02 -0800, "SU" wrote:

The Program Error prompt is shown followed by closure of Excel.

"Gord Dibben" wrote:

Works for me.

Do you mean "crashes" as in shuts down?

Any error message(s)?

Do you have a sheet1?

Any invalid characters in A1?


Gord Dibben Excel MVP

On Thu, 24 Feb 2005 10:03:11 -0800, "SU" wrote:

I would like to direct users to fill a cell in a sheet with their Login name.
The value of this cell will then be used as the filename to save the
spreadsheet.

Can anyone help me to automate this process!

I tried the following sub from a previous answer but it crashes my excel!

sub foo()
with activeworkbook
.saveas filename:=.worksheets("sheet1").range("A1").value
end with
end sub