Yes this worked
With Range("ClearArray")
..Resize(.Rows.Count + Changeto2DRows, .Columns.Count +
Changeto2DColumns).Name = "ClearArray"
'.Resize(.Columns.Count + Changeto2DColumns).Name = "ClearArray"
End With

I originally had

With Range("ClearArray")
..Resize(.Rows.Count + Changeto2DRows).Name = "ClearArray"
..Resize(.Columns.Count + Changeto2DColumns).Name = "ClearArray"
End With


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