since your two variables are typed as text, you don't use SET

Dim ThisCustomer As Text
Dim ColACustomer As Text
ActiveCell.Offset(1, 0).Range("A1").Select
Do Until ActiveCell.Value = ""
ThisCustomer = Ucase(ActiveCell.Value)
ColACustomer = Ucase(Range("A" & ActiveCell.Row).Value(
if ThisCustomer = ColaCustomer then


--
Regards,
Tom Ogilvy


"David" wrote in message
...
Hi Group,
I want to compare text objects, but upper case and lower case are messing
it
up.
This is the code I have:
Dim ThisCustomer As Text
Dim ColACustomer As Text
ActiveCell.Offset(1, 0).Range("A1").Select
Do Until ActiveCell.Value = ""
Set ThisCustomer = ActiveCell.Value
Set ColACustomer = Range("A" & (ActiveCell.Row)).Value

I want to set both ThisCustomer and ColACustomer to upercase then I will
compare them. I believe I will have to use the application object, but am
not
sure?
Thanks for your help.
--
David