Alan -

For some reason, my project is going backwards,
or at least it feels that way.

I have the following:

Sub .... ()

Dim rng As Range
Dim aTemp
Range("A1").Select
ActiveCell.CurrentRegion.Select
r = Selection.Rows.Count
c = Selection.Columns.Count
Set rng = Range("A1").CurrentRegion
aTemp = rng.Value
Sheets.Add
Set rng = Range("A1").Range(Cells(1,1),Cells(r,c)).Select
rng.Resize(r,c).Values = SubArray(aTemp,1,c,1,r)

End Sub

I try it now on a single file - hoping that in effect all it would do
is read the range into an array and then write it back out to a
different worksheet.

When I watch the subroutine, it appears to do everything correct but
the line with SubArray.

Any thoughts?