find in internal string

[luca90]

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

[Siddharth Rout]

Use INSTR()

for example
assuming that you have defined Exlbook

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...

[luca90]

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

[luca90]

Use INSTR()

for example
assuming that you have defined Exlbook

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!