find in internal string

If Not .Sheets(I).Name Like "*sbilanci*" Then
ecc...

I have many sheets in wbiook.
I jave maked a code to exclude for coindition all sheet contai the word Sbilanci... but the liner of code not intercept the condition!!!!

I can have in wbook a sheets named similar:
Sbilanci_001
460_sbilanci
re_sbilanci_34

in effect i want to controll in all position of string sheet name the word sbilanci

Use INSTR()

for example
assuming that you have defined Exlbook

vb Code:

Sub aaa()
For i = 1 To Exlbook.Sheets.Count
    'vbTextCompare will ensure that even Sbilanci(with a capital S)
    'is also picked up.
    If InStr(1, Exlbook.Sheets(i).Name, "sbilanci", vbTextCompare) Then
        MsgBox Exlbook.Sheets(i).Name
    End If
Next i
End Sub

Hope this helps...

koolsid i love you!
Tks from Napoli. Virtual Pizza for you!

Quote:

---

Originally Posted by koolsid

Use INSTR()

for example
assuming that you have defined Exlbook

vb Code:

Sub aaa()
For i = 1 To Exlbook.Sheets.Count
    'vbTextCompare will ensure that even Sbilanci(with a capital S)
    'is also picked up.
    If InStr(1, Exlbook.Sheets(i).Name, "sbilanci", vbTextCompare) Then
        MsgBox Exlbook.Sheets(i).Name
    End If
Next i
End Sub

Hope this helps...

---

koolsid i "love you!":thumb: :wave: :p
Tks from Napoli. Virtual Pizza for you!