On Dec 22, 9:54*am, Dave Peterson wrote:
One mo

Dim CopyWks as worksheet
set copywks = workbooks.add(1).worksheets(1)
with copywks
* *.name = "Quote Proposal"
* *quote1.sheets("quote").range("a1:J52").copy _
* * * destination:=.range("a1")
end with

workbooks.add(1)
will add a workbook with a single sheet.

jlclyde wrote:

I am trying to have VBA add a workbook, name sheet 1 as Quote Proposal
and remove any other sheets. *Or not add them, which ever is easier.
My code keeps throwing an error,

* * Set CopyBook = Workbooks.Add
* * CopyBook.Sheet1.Name "Quote Proposal"
* * Quote1.Sheets("quote").Range("A1:J52").Copy _
* * * * Destination:=CopyBook.Sheet1.Range("A1")

Thanks,
Jay

--

Dave Peterson

I want to thank you all for the great advice. i will definitly try to
use these in the future. I really like this last one by Dave.
Thanks,
Jay