Save As using contents of Cell in Name

Can someone help with code that changes the "save As" file name to a
combination of the original File Name + the contents of a cell, and
saves file in same folder as the original.

E.G. Original File Name= Timesheet
Cells B1= Location
Cell C1 = Date in format 3-5-2004
Cell A1 = concatenate(B1,C1)

Fle Name will therefore be "Timesheet Location 3-5-2004"

The other problem is with the date. When concatenating, how do I format
the date to avoid it looking like "Location 38051"

Any help much appreciated

Nick


---
Message posted from http://www.ExcelForum.com/

Hi
for concatening use the formula
=B1 & " " & TEXT(C1,"M-D-YYYY")

for saving you may use a macro like
sub save_it()
dim rng as range
set rng = activeworkbook.worksheets("sheet1").range("A1")
activeworkbook.saveas rng.value
end sub


--
Regards
Frank Kabel
Frankfurt, Germany


Can someone help with code that changes the "save As" file name to a
combination of the original File Name + the contents of a cell, and
saves file in same folder as the original.

E.G. Original File Name= Timesheet
Cells B1= Location
Cell C1 = Date in format 3-5-2004
Cell A1 = concatenate(B1,C1)

Fle Name will therefore be "Timesheet Location 3-5-2004"

The other problem is with the date. When concatenating, how do I
format the date to avoid it looking like "Location 38051"

Any help much appreciated

Nick


---
Message posted from http://www.ExcelForum.com/