Run-time error 9 - subscript out of range

[lezawang]

Hi
I am getting the above message when I try to run the code below. Any idea why please? Thanks you.

Sub test()
Workbooks("test1").Worksheets("sheet1").Range("a1:c10") = 1
End Sub

 

[Fluff]

Try adding the file extension to the workbook name