|
|
#10
01-15-2025, 04:49 AM
|
|||
|
|||
Code:
Option Explicit
Sub MakeCopy()
Dim i As Integer
Application.CopyObjectsWithCells = False
For i = 1 To 2
Sheets("Sample Sheet").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Sample Sheet" & Sheets.Count + 1
Next i
Application.CopyObjectsWithCells = True 'reset
End Sub
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Exporting data to an excel template | Stevie23 | Excel Programming | 3 | 04-05-2018 12:12 AM |
 excel 2013 template
|
jassie | Excel | 1 | 03-06-2017 10:36 AM |
| Excel Invoice Template | DMU62 | Excel | 19 | 11-02-2016 12:17 PM |
|
Excel Default Template
|
kneghx | Excel | 1 | 05-13-2015 09:29 AM |
| Excel Chart Template | mdarcey | Excel | 0 | 01-26-2012 08:43 AM |
Windows 10 
Office 2007
Threaded Mode