| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add sheet to end
Hello. How do I get this to add the new sheet to the end of my workbook:
Sub CopyRange() Dim wsMain As Worksheet, wsNew As Worksheet Set wsMain = Sheets("test") Set wsNew = Sheets.Add wsMain.Range("A:B").Copy wsNew.Range("A1") wsNew.Name = InputBox("Enter New Worksheet Name") End Sub Thanks, Patti |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| excel sheet bootom half sheet goes behind top part of sheet | Excel Worksheet Functions | |||
| Duplicate sheet, autonumber sheet, record data on another sheet | Excel Worksheet Functions | |||
| How do I select price from sheet.b where sheet.a part no = sheet.b | Excel Worksheet Functions | |||
| relative sheet references ala sheet(-1)!B11 so I can copy a sheet. | Excel Discussion (Misc queries) | |||
| Inserting a row in sheet A should Insert a row in sheet B, removing a row in Sheet A should remove the corresponding row in sheet B | Excel Programming | |||
Threaded Mode
