I've never done anything like this before, but I checked out what you
are talking about in VBA Help and I think you should try it like this:

Old2DRows = Range("ClearArray").Rows.Count
Old2DColumns = Range("ClearArray").Columns.Count

Changeto2DRows = Old2DRows - AMax
Changeto2DColumns = Old2DColumns - BMax

Range("ClearArray").Resize(.Rows.Count + Changeto2Drows, .Columns.Count
+ Changeto2DColumns)

New2DRows = Range("ClearArray").Rows.Count
New2DColumns = Range("ClearArray").Columns.Count

- Pikus


---
Message posted from http://www.ExcelForum.com/