Hi

May have found a way to do this.

1) Create a new workbook. In A1 enter H1. This is the column Heading. Save the file as c:\temp\a.xls
2) In a new open workbook, enter your input number in A1 (say 15). Insert a general module, and insert the code

Sub aaa()
  Set cn = CreateObject("adodb.connection")
  Set rs = CreateObject("adodb.recordset")
    
  cn.Open "provider=microsoft.jet.oledb.4.0;data source = c:\temp\a.xls; extended properties = ""excel 8.0; imex=1, hdr=yes"""
  rs.Open "select * from [sheet1$]", cn, 3, 3 'adOpenStatic, adLockOptimistic
  Range("B1").CopyFromRecordset rs
  rs.MoveFirst
  rs.Fields(0).Value = Range("A1").Value + Range("B1").Value
  rs.Update
  
  Set rs = Nothing
  Set cn = Nothing
End Sub
Run the code.

Open a.xls and you should find that A2 contains 15. Shut down a.xls, and change the value in A1 from 15 to 20. Rerun the code. Open a.xls and you should find that A2 is now 35.

See how that goes, and see if it can be converted to suit your situation.

rylo