macro to copy last sheet in workbook

  • Thread starter Thread starter Bill_S
  • Start date Start date
B

Bill_S

I need a macro to copy the last sheet in my workbook and put the copy at the
very end of the workbook, in effect it becomes the new last sheet. Thanks
 
Option Explicit
Sub testem()
With Sheets
.Item(.Count).Copy _
after:=.Item(.Count)
End With
End Sub
 
Dave - excellent! I've got a follow-on question. When the new sheet is
created, two of the cells that are populated should be cleared out: the date
cell (E4) and the quote cell (G6.) What should I add to your macro to
accomplish that? thanks.
 
Option Explicit
Sub testme()
With Sheets
.Item(.Count).Copy _
after:=.Item(.Count)
End With
activesheet.range("e4,g6").clearcontents
End Sub
 
Back
Top