Кто-нибудь! Помогите, не могу понять почему один вариант работает, а второй нет, хотя вроде бы все правильно?

Sub FuncRange()
Dim xlsApp As Excel.Application
Dim WrBook As Workbook

Set xlsApp = CreateObject("Excel.Application.9")
Set WrBook = xlsApp.Workbooks.Add
Set xlsSheet = WrBook.Sheets(1)
xlsApp.Visible = True

'Работающий Range
xlsSheet.Range("A1:B10").Cells = "ABCD"
'Неработающий Range
xlsSheet.Range(Cells(1, 1), Cells(10, 2)).Cells = "ABCD"

Set xlsSheet = Nothing
Set WrBook = Nothing
xlsApp.Quit
End Sub

xlsSheet у меня описан, просто в сообщении форума пропустил: dim xlsSheet as WorkSheet . Первоначально в этом примере был xlsSheet.Range(Cells(1, 1), Cells(10, 2)).Cells = "ABCD", но возникает ошибка: Run-time error '1004'. Попробовал - xlsSheet.Range("A1:B10").Cells = "ABCD" -работает. Использую либо первый, либо второй вариант по отдельности.

А если запускаю из под VBA access, то работает через раз, т.е. первый запуск работает, второй уже нет и после первого, почему-то в Task Manager остается Excel(No visible). Excel выгружаю - опять работает.
Текст ошибки, если запускаю из-под VBA Access: Method 'Cells' of object '_Global' failed или The remote server machine does not exist or is unavailable или Method 'Range' of object '_worksheet' failed
Текст ошибки, если запускаю из-под VBA Excel: Application-defined or object-defiend error.

Андрей! Огромное спасибо. Все заработало.