Что не так не пойму out of range

[alco84]

Workbooks("task2.xls").Worksheets(" test2").Range("C3").Value = "fff"

[alco84]

Dim iFullPath As String
iFullPath = ActiveWorkbook.Path

Dim XL As Object
Dim XLS As Object

Set XL = CreateObject("Excel.Application")
XL.Visible = True
Set XLS = XL.Workbooks.Open(iFullPath & "\task2.XLS")
Set XL = Nothing
Set XLS = Nothing

Workbooks("task2.xls").Worksheets(" test2").Range("C3").Value = "fff" здесь выскакивает out of range

[motorway]

Worksheets(" test2") - наверно, из-за пробела здесь

[alco84]

нет это здесь он почему то появился

[EducatedFool]

Зачем так много лишнего кода?
Зачем создавать ещё один экземпляр приложения excel, если макрос уже выполняется из Excel?

Так работает?

Sub test()
    Dim iFullPath As String, XLS As Workbook
    iFullPath = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "task2.XLS")
    Set XLS = Workbooks.Open(iFullPath)
    XLS.Worksheets("test2").Range("C3").Value = "fff"
End Sub

[alco84]

Спасибо все работает