transparente ante mayusculas y minusculas

hola grupo!
tengo la siguiente situacion
en el codigo
If Cells(r, 3) = "FUNDACION" Then CODDANE = "47288000" Else CODDANE > "47053001"
necesito que sin importar si la palabra en la celda esta escrita en
mayusculas , minusculas o mayuscula inicial se cumpla correctament el
condicional.. es decir si esta escrito Fundacion ó fundacion o FUNDACION
el
condicional se enrute bien

muchas gracias

Cualquiera de las dos opciones te sirve

If UCase(Cells(r, 3)) = "FUNDACION"

If LCase(Cells(r, 3)) = "fundacion"

> hola grupo!
> tengo la siguiente situacion
> en el codigo
> If Cells(r, 3) = "FUNDACION" Then CODDANE = "47288000" Else CODDANE =
> "47053001"
> necesito que sin importar si la palabra en la celda esta escrita en
> mayusculas , minusculas o mayuscula inicial se cumpla correctament el
> condicional.. es decir si esta escrito Fundacion ó fundacion o FUNDACION el
> condicional se enrute bien
>
> muchas gracias

Contenido = ucase(Cells(r,3))
if Contenido = "FUNDACION"


"fredy" escribió en el mensaje
news:
> hola grupo!
> tengo la siguiente situacion
> en el codigo
> If Cells(r, 3) = "FUNDACION" Then CODDANE = "47288000" Else CODDANE > > "47053001"
> necesito que sin importar si la palabra en la celda esta escrita en
> mayusculas , minusculas o mayuscula inicial se cumpla correctament el
> condicional.. es decir si esta escrito Fundacion ó fundacion o FUNDACION
> el
> condicional se enrute bien
>
> muchas gracias