With Worksheets("Sheet1")
with .range("Print_Area")
.resize(,.columns.count + 1).name = "'" & .parent.name & "'!Print_Area"
end with
end with

This worked ok for me as long as there was that range named Print_Area.

wrote:

By going though the messages i leaned how to add the column i need: Set
tRange = Range("Print_Area").Resize(, 1 +
Range("Print_Area").Columns.Count), however how do i save this back to
the speadsheet? i can't seem to figure that out.

--

Dave Peterson