Greetings,

I use the following code to automatically resize a named worksheet range of
contiguous data that is in one column and grows vertically.

With Worksheets("Sheetname").Range("WorkingData").Resiz e(1, 1)
.Parent.Range(.Item(1), .Parent.Cells(Rows.Count, .Column) _
.End(xlUp)).Name = "WorkingData"
End With

It was published in this group and has proven very useful.Unfortunately I
can't seem to write code that is this compact or find any references how you
combine Resize and various scenarios.

1. With the assumptions that the named worksheet range of contiguous data is
in multiple columns and grows vertically, how would you alter the code?
2. With the assumptions that the named worksheet range of non-contiguous
data is in multiple columns and grows vertically, how would you alter the
code?
3. With the assumptions that the named worksheet range of contiguous data is
in multiple columns and grows horizontally, how would you alter the code?
4. With the assumptions that the named worksheet range of non-contiguous
data is in multiple columns and grows horizontally, how would you alter the
code?
5. With the assumptions that the named worksheet range of contiguous data is
in multiple columns and grows vertically and horizontally, how would you
alter the code?
6. With the assumptions that the named worksheet range of non-contiguous
data is in multiple columns and grows vertically and horizontally, how would
you alter the code?

Thank you in advance for your help!!

Ray