Save As using contents of Cell in Name

[NickMinUK]

Can someone help with code that changes the "save As" file name to
combination of the original File Name + the contents of a cell, an
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 forma
the date to avoid it looking like "Location 38051"

Any help much appreciated

Nic

 

[Frank Kabel]

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