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