ник: Bellerofont
А что именно не работает? Ошибка? Номер? На какой строке?
Вы обработчик ошибок используете?
По поводу кода:
Зачем вы активируете worksheet?
Для того, чтобы потом использовать xl.Range?
Как-то это некомильфо. Почему не используете xlSheet.Range?