I'm experiencing this error (Method - 'Cell ' of object -
Global failure) after running through the routine twice.
On the first run, this error is not encountered.

This code is run from Access 2000:
HeadingArr = Array("Negotiated Current","Actual Current", _
"Negotiated ITD", "Actual ITD")

For i = 2 to 11 Step 3
Set oRange = oSheet.Range(Cells(1,i), Cells(1, i + 2))
With oRange
.MergeCell = True
.Value = HeadingArr(Init((i+1) 3))
end with
next