SaveAs with content of specific cell

[Smythe78]

Hi.
Can somebody help me with some code that will follow on from the code below to perform a SaveAs into a specific folder (Q:\Sales\Finance\Andy), with contents of Cell A1 being the save name of the file? Am stuck.


Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select

'ADD FORMULA TO A1:

ActiveSheet.Range("A1").FormulaR1C1 = "=MID(CELL(""filename"",RC),FIND(""["",CELL(""filename"",RC))+1,LEN(CELL(""filename"",RC))-FIND(""]"",CELL(""filename"",RC))+1)"


Andy

[sweep]

Is this what you need?

Please Login or Register  to view this content.

You might want to add code tags the next time you post to avoid shooting at dawn by a mod.