activesheet.copy

Sub SavNewInvWithNewName() Dim NewFN As Variant ' Copy New Invoice to a new workbook ActiveSheet.Copy NewFN = "C:\Documents\HOUSING" & Range("I7").Value & ".xlsx" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlXMLSpreadsheet ActiveWorkbook.Close NextInvoice End Sub

Hi there, I've got a workbook with two spreadsheets named "WT-1" and "CL-1" (it could be more of them with diff. names). When i.e. "WT-1" is active, I would like to be able to (by using a button with macro assigned to it) copy this current (active) spreadsheet and rename it in sequence like...

I have a slick little email macro that I cobbled together from various sources. Runs great on my machine and another co-worker, but today when we gave it to a third coworker, he got a RUNTIME 1004 error either at sht.activate or ActiveSheet.copy There is obviously something in his environment...

I have run this code successfully on a test sheet (sheet1, sheet2, sheet3), but when I plug it into my REAL project I get an error at the Activesheet.Copy line. Any thoughts? Sub Email_Sheet() Set wbook = ActiveWorkbook For Each sht In wbook.Worksheets sht.Activate...

Hi, After spending the past seven and a half hours trying to get this to work I have admitted defeat. What I'm attempting to do is copy 27 worksheets, names set in a range "nao_sheets", paste them in to the same workbook in any position (although a new workbook would also be fine) and then...