Presuming that file name is located in A1 here is what you
can try:

Sub saveAsCellValue()

ActiveWorkbook.saveAs ("C:\" & Sheets("SHEET1").Cells(1,
1).Value)

End sub