BUSCAR NOMBRE HOJA

[Leonardo Briceño]

Hola buenos días amigos de AE.

Una consulta. tengo una macro que sirve para buscar hojas en un archivo. El código permite poner parte del nombre de la hoja y hace la búsqueda, pero me gustaría que NO respetara mayúscula o minúsculas.

Por ejemplo en el archivo hay una ROJO, si coloco el nombre tal cual la encuentra pero si coloco rojo o Rojo no la encuentra. 

Se podrá lograr lo planteado?

Gracias!!! 

BUSCAR NOMBRE DE HOJA.xlsm

[AlexanderS]

Hola @Leonardo Briceño, en este caso seria convertir tanto la búsqueda como el nombre de las hojas a mayúsculas independientemente de como estén escritas:

Sub BuscarNombreHoja()

Application.ScreenUpdating = False
    Dim existe As Boolean
    Dim nombreHoja As String
    Dim cont As Integer
    nombreHoja = UCase(InputBox("INGRESE EL NOMBRE DE LA HOJA"))
    existe = False
    For cont = 1 To Worksheets.Count
        If UCase(Worksheets(cont).Name) Like "*" & nombreHoja & "*" Then
            existe = True
            Exit For
        End If
    Next
    If existe = False Then
        MsgBox "NO SE ENCONTRÓ EL NOMBRE INGRESADO!"
    Else
         Sheets(Worksheets(cont).Name).Select
    End If
End Sub

Lo logras con UCASE().

Saludos 

[Antoni]

        If UCase(Sheets(cont).Name) Like "*" & UCase(nombreHoja) & "*" Then

 

[Leonardo Briceño]

Gracias @AlexanderS @Antoni funciona genial!!?