Закомментируй строку On Error Resume Next и попробуй запустить!
А ошибка-то какая? И зачем писать один вопрос по 3 раза?