Macro to copy and create new sheet

[lol.xls]

I have a workbook where i create "daily reports". I'm trying to find a VBA solution to "copy" the most current report, and create a new tabsheet. (the same way you would right click on the tabe, and select "create a copy". I've tried recording a macro to do this, but the macro keeps trying to copy the same report, and since i have VBA that changes the sheet name automatcially by one numberal, it won't work. Can someone help me with the code so that i can copy and create new sheet tabs based off of the active sheet? Many Thanks for any help on this!!

 

[Zack Barresse]

Hi there, welcome to the board!

It would help if we saw your code. But to just copy the activesheet, that's fairly simple...

ActiveSheet.Copy After:=ActiveWorkbook.Worksheets(ActiveWorkbook.ActiveSheet.Index)

Is that what you're looking for?

HTH

 

[lol.xls]

Thanks, this board is amazingly informative.

Sub newrpt()
'
' newrpt Macro
'
'
Sheets("10-15-09").Select
Sheets("10-15-09").Copy Before:=Sheets(1)
Range("U6").Select
Selection.Copy
Range("H6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I8:K8").Select
Application.CutCopyMode = False
End Sub

The prob is it's copying "sheets(1)", when i need it to copy the active sheet.

 

[lol.xls]

Hi there, welcome to the board!

It would help if we saw your code. But to just copy the activesheet, that's fairly simple...

ActiveSheet.Copy After:=ActiveWorkbook.Worksheets(ActiveWorkbook.ActiveSheet.Index)

Is that what you're looking for?

HTH

it works...but how do i make the new sheets in the book move to the left instead of to the right? for example....my sheets are named by dates, and i'd like the most current dates to be on the far left of the book, and digress to the right.

 

[lol.xls]

N/M!! got it...thanks a ton!!!

 

[Zack Barresse]

Just change the "After" to "Before".

Edit: Ah, gotcha! Cool beans.