View Single Post
  #8   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Kent K Kent K is offline
external usenet poster
 
Posts: 9
Default Creating multiple worksheets...

Thanks for all the suggestions and links. I really appreciate it.

-K

"Gord Dibben" wrote:

See other post.

Gord

On Fri, 18 May 2007 22:39:00 -0700, Kent K
wrote:

sorry... one more question. Where do I start and end my "copy" of the macro
you provided?

"Gord Dibben" wrote:

Kent

Stick this macro into a general module in your workbook.

Select the sheet to copy and run the macro.

Sub SheetCopy22()
Dim i As Long
On Error GoTo endit
Application.ScreenUpdating = False
shts = InputBox("How many times?")
For i = 1 To shts
ActiveSheet.Copy After:=ActiveSheet
With ActiveSheet
.Name = "NewSheet" & i
End With
Next i
Application.ScreenUpdating = True
endit:
End Sub

To do the above "sticking" hit Alt + F11 to open the Visual Basic Editor.

CTRL + r to open the Project Explorer.

Select your workbook/project and right-clickInsertModule.

Paste the macro into that module.

FileSave then Alt + q to return to Excel.

ToolsMacroMacros........select SheetCopy22 and "Run"

If you want names other than NewSheet1, 2 ,3 etc. post back for more help.


Gord Dibben MS Excel MVP

On Fri, 18 May 2007 19:13:00 -0700, Kent K
wrote:

I'm trying to figure out how to duplicate worksheet #1 and then create 54
additional worksheets without having to (copy #1 - create new worksheet -
Paste #1 onto new worksheet - repeat for each additional worksheet) Is this
possible? Using Excel 2007