SaveAs Macro - Build filename from cell contents HOW?
Dim res as Variant, sName as String
with Worksheets("Sheet2")
sName = .Range("A1").Text & " - " & .Range("A2").Text
End With
res = Application.GetSaveAsfilename( InitialFilename:=sName & ".xls")
If instr(1,res,sname,vbTextcompare) = 0 then
msgbox "Please don't change the file name - action is halted"
exit sub
end if
if res = False then exit sub
Activeworkbook.SaveAs res
--
Regards,
Tom Ogilvy
"Ch33baman2" wrote:
I would really appreciate anyone who could show me macro code to accomplish
this.
I need to save workbooks with a filename generated from the values in
multiple cells. I need to fully automate this process up to the point where i
can browse to a save location, then hit save. The criteria is as follows..
- MUST specify (2) cells to gather data from to join to make 1 filename ie.
A1,A2 (saveas filename should look like "data1 - data2.xls" )
- MUST also specify worksheet in the workbook to grab the data from ie.
'SHEET2'
- MUST pop-up the 'browse' dialog, so i can select save location.
TIA!
|