put this in the workbook before close event.
private sub macMakeBU
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:="H:\Book3.xls", _
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
end sub
put this in the workbook before close event.
private sub macMakeBU
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:="H:\Book3.xls", _
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
end sub