Indexing an added sheet.
Posted by Pete on September 18, 2001 11:00 PM
To anyone who can help.
I have a macro which contains the lines:
Dim ws As Worksheet, x As Integer
x = 1
For Each ws In Worksheets
If Left(ws.Name, 8) = Format(Now(), "dd-mm-yy") Then x = x + 1
Sheets.Add.Name = Format(Now(), "dd-mm-yy") & "(" & x & ")"
I wish to index these new sheets on a page called "index". I need a button which links to that page and each time I create a new sheet using the macro above I need to have the button down below the last.