write new material to it and then save the updated file?
Sub blah()Workbooks.Open Filename:= _"C:\Documents and Settings\anyone\My Documents\Sample.xls"Range("A1").FormulaR1C1 = "42"ActiveWorkbook.SaveActiveWorkbook.CloseEnd Sub