Backup your workbook before trying this macro

I am assuming that cell c2 is the workbook name , c2 is the sheet name
, b2 is the amount.

if file exist , It will open workbook, select a sheet name and assign
the amount

else it will add workbook, select a sheet name and assign the amount
and save the workbook as the account name



Sub Macro1()
Dim acount_name, sheet_name, amount As Variant
account_name = Range("c2").Value 'account name
sheet_name = Range("a2").Value 'sheet names
amount = Range("b2").Value 'amount
On Error Resume Next
Workbooks.Open Filename:=Range("c2").Value 'open the file
If Err.Description < "" Then ' if file doesnot exist
Err.Clear
Workbooks.Add 'create new workbook
Sheets("sheet1").Name = sheet_name ' name the sheet1 as name
from column a
Range("a4").Value = amount ' assign the amount
ActiveWorkbook.SaveAs account_name 'save as accountname
Else ' if file exist
Sheets(sheet_name).Select 'select the sheet name
Range("a4").Value = amount 'assign the amount
End If
ActiveWorkbook.Save 'save
ActiveWorkbook.Close 'close
End Sub


--
anilsolipuram
------------------------------------------------------------------------
anilsolipuram's Profile: http://www.excelforum.com/member.php...o&userid=16271
View this thread: http://www.excelforum.com/showthread...hreadid=382104