Sub blah()Workbooks.Open Filename:= _"C:\Documents and Settings\anyone\My Documents\Sample.xls"Range("A1").FormulaR1C1 = "42"ActiveWorkbook.SaveActiveWorkbook.CloseEnd Sub