Hi

Adding this code to the bottom worked for me. Change the workbook and
worksheet names to suit. Message box can be removed as required. Just there
so you can actually see what is happening. If you don't want to close excel,
remove the last line.


if objxl.workbook.name = "Test.xls" then

objxl.worksheets("sheet3").visible = true
objxl.msgbox ""
objxl.Application.displayalerts = false
objxl.workbooks("Test.xls").save
objxl.Application.displayalerts = True
objxl.workbooks("Test.xls").close
objxl.quit

end if