[Skunkworks] Macro to Copy Excel Sheet to a new workbook, Rename & Save

Skunks, I seem to be having a lot of questions today ., I am working on this Excel Workbook that generates invoices, quotations & LPOs, I have recorded a macro that extracts a sheet from the workbook - but I want it to be renamed with a pre-chosen name say "Quote-17-02-11" - this name is in cell A1, then paste the name on B3 of the created sheet..my code has been returning an error I have been looking for the solution all over the net but is come to nought. TActiveSheet.Copy Before:=Sheets(Sheets.Count ActiveSheet.Name = Range("A1").Value ActiveSheet.Range("A1").Copy ActiveSheet.Range("B3").PasteSpecial Paste:=xlPasteValues -- ------------------------------------------------------- Advanced Excel Training www.opencastlabs.com