I have a two dimensional array SalesData() with the dimensions 1 to
18,888, and 1 to 66.

I am using the exact same code on another worksheet with complete
success. However the line .Range("A2").Resize(18888, 66).Value =
SalesData() gives me an Application defined or object defined error.


Sub Write_Array()
With CurrWkbk.Sheets("Data")
StatusText = "Clearing existing data on Raw_Data Worksheet"
UpdateStatusForm StatusText
.Range("A2:GA50000").ClearContents
StatusText = "Writing costed inventory data to spreadsheet to
be read for reserve processing"
UpdateStatusForm StatusText

'The following line that works in many other worksheets always
gives me an error and i can't figure out why.

.Range("A2").Resize(18888, 66).Value = SalesData()

End With

End Sub