Do loop to add a new worksheet

[Guest]

If anyone could help on this...

Stuck on how to do a LOOP to add a new worksheet to the front of a workbook
with unkown amount of worksheets.

I get about as far as:

Dim WrkBk as Integer

WrkBk = ActiveWorkbook.Worksheets.Count

THANKS

 

[Chip Pearson]

Alex,

No loop is required. Try something like

With ActiveWorkbook.Worksheets
.Add before:=.Item(1)
End With


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Guest]

PERFECT...THANKS!!!

Alex,

No loop is required. Try something like

With ActiveWorkbook.Worksheets
.Add before:=.Item(1)
End With


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com