Name of sheets

[Gianricus]

Hi,
i have one excel-file and i have more sheet.
I have one sheet named "DS".
It's possible know if the sheet named "DS" exist in my workbook?

Thanks

 

[jebenson]

This code will do what you want:


Sub FindSheet()
Dim SheetFound As Boolean

SheetFound = False

For Each Sheet In Sheets
If Sheet.Name = "DS" Then
MsgBox "Found Sheet DS"
SheetFound = True
End If
Next

If SheetFound = False Then
MsgBox "Sheet DS not found."
End If
End Sub

I used to rock and roll every night and party every day. Then it was every other day. Now I'm lucky if I can find 30 minutes a week in which to get funky. - Homer Simpson

 

[Gianricus]

Ok, thanks, it's one solution, but it is not possible know immediately(with a propriety) if one name of sheets is present??

Thanks.

Bye

 

[MiggyD]

To know more immediate, you would have try renaming another sheet to the same name in the wb. But it may be easier with jebenson's code, as it is not restricted to any particular workbook.

 

[Gianricus]

Ok, thanks for your help.

Bye

 

[tmktech]

Here's another clean & simple way that works for me.

if(iserror(DS!A1),"Doesn't exist","Exists&quot

Any cell will work. I used A1 in this example.

 

[Tinso]

your workbook (say MyBook) has a collection .Sheets
loop through the collection and test for name
I can't remember the code exactly but:

function isfound as boolean
isfound = false
for ic = 0 to mybook.sheets.count
if mybook.sheets(ic).name = "DS" the isfound = true
next ic
exit function