ник: osmor
после
Set objXls = GetObject("C:\Documents and Settings\vasiliy.OMT\Мои документы\ERTE.xls")
поставьте
objXls.Visible = true
обработчик ошибок есть? нигде resume next не стоит? Попробуйте в отладчике по шагам пройти процедуру и посмотреть все ли выполняется