Willdcards in Sheet Name

[if1467]

Hi,

I am using VB 6.3 for excel and i have the foillowing code:

Sheets.Add
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Results"

The problem is that when I re-run the program the sheet that gets created is incremented by 1, so renaming it doesn't work.

I tried using a wildcard for the numerical charactor (below), but it didn't work.

Sheets.Add
Sheets("Sheet*").Select
Sheets("Sheet*").Name = "Results"

Does anyone have an idea for a solution that would make this work?

[ubentook]

The sheet that is added becomes the active sheet.
So just rename the active sheet...

Sheets.Add Count:=1
ActiveSheet.Name = "Results"

Note that each sheet in an Excel workbook must have a unique name - you cannot have two sheets named Results.

[kadghar]

Sheets indexes can be Strings or Integers

if your sheets are
Sheet1, Sheet2, Sheet3, Sheet4, Sheet5

you can check them inside a loop using an integer with:

dim i as integer
for i = 1 to 5
    sheets(i).name = "MySheet" & i
next

or using a string:

dim i as integer
dim Str1 as string
for i = 1 to 5
    Str1 = "Sheet" & i
    sheets(Str1).name = "MySheet" & i
next

well

HTH