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