Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
HELP- How can I start off excel with a new worksheet: sheet1, everytime?
Hi, I created a excel workbook with many worksheets inside. But I would like to reset(or delete all worksheets inside) the workbook and left only with a new empty worksheet: Sheet1, everytime I re-start the workbook. Any Macro code which I can use to do that?? Thanks alot :) -- Acube ------------------------------------------------------------------------ Acube's Profile: http://www.excelforum.com/member.php...o&userid=29734 View this thread: http://www.excelforum.com/showthread...hreadid=522506 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
HELP- How can I start off excel with a new worksheet: sheet1, everytime?
The following is a generic process to create a new workbook with as many
sheets as required, place the number required in the function parameter, e.g. NewBook(1) for one sheet or NewBook(8) for eight sheets etc. '============================================ ' call the create function ' enter number of worksheets in new workbook '============================================ Sub testwb() If NewBook(1) Then MsgBox "Workbook Created Successfully" Else MsgBox "Workbook Create Failed" End If End Sub '============================================ ' function to create a new workbook ' returns true if successful '============================================ Function NewBook(xsheets As Integer) As Boolean NewBook = False ' test within range If xsheets = 1 And xsheets <= 256 Then ' create new workbook Dim NewWB As Workbook Workbooks.Add Set NewWB = ActiveWorkbook ' clean out the unwanted worksheets max= xsheets Dim ws As Integer With NewWB For ws = .Sheets.Count To 1 If ws xsheets Then Sheets(ws).Delete Next End With ' if not enough sheets add them With NewWB Do While .Sheets.Count < xsheets .Sheets.Add after:=.Sheets(.Sheets.Count) Loop End With ' set return value NewBook = True End If End Function -- Cheers Nigel "Acube" wrote in message ... Hi, I created a excel workbook with many worksheets inside. But I would like to reset(or delete all worksheets inside) the workbook and left only with a new empty worksheet: Sheet1, everytime I re-start the workbook. Any Macro code which I can use to do that?? Thanks alot :) -- Acube ------------------------------------------------------------------------ Acube's Profile: http://www.excelforum.com/member.php...o&userid=29734 View this thread: http://www.excelforum.com/showthread...hreadid=522506 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I print a specific worksheet everytime? | Excel Discussion (Misc queries) | |||
printing a specific worksheet everytime | Excel Discussion (Misc queries) | |||
How to start Excel on a specific Worksheet. | Excel Discussion (Misc queries) | |||
Worksheet that appears on start of Excel | Excel Discussion (Misc queries) | |||
start a macro everytime excel opens | Excel Programming |