<code>

'on error resume next
Dim objApp, objBook, objRange, objSheet

set objApp = CreateObject("Excel.Application")
objApp.Visible = true

set objBook =...