Invalid Qualifier

For Each C In myRng
With C
S = CStr(C.Value)
S = UCase(WorksheetFunction.Clean _
(WorksheetFunction.Trim(S)))
C = S.Value '*
.WrapText = True
.Rows.AutoFit
End With
Next C

S is Dimmed as a String.
On the marked line (*) I'm getting an Invalid Qualifier error message.

Why please?

Regards.

try it with c.value=s

--
Don Guillett
SalesAid Software
donaldb@281.com
"Stuart" <sgbooth@totalise.co.uk> wrote in message
news:uOMAQCeRFHA.3684@TK2MSFTNGP10.phx.gbl...
> For Each C In myRng
> With C
> S = CStr(C.Value)
> S = UCase(WorksheetFunction.Clean _
> (WorksheetFunction.Trim(S)))
> C = S.Value '*
> .WrapText = True
> .Rows.AutoFit
> End With
> Next C
>
> S is Dimmed as a String.
> On the marked line (*) I'm getting an Invalid Qualifier error message.
>
> Why please?
>
> Regards.
>
>

That worked, many thanks.

now, if I could just find how to achieve the same,
but without converting to upper case.

Regards.

"Don Guillett" <donaldb@281.com> wrote in message
news:%23TlveFeRFHA.4028@tk2msftngp13.phx.gbl...
> try it with c.value=s
>
> --
> Don Guillett
> SalesAid Software
> donaldb@281.com
> "Stuart" <sgbooth@totalise.co.uk> wrote in message
> news:uOMAQCeRFHA.3684@TK2MSFTNGP10.phx.gbl...
>> For Each C In myRng
>> With C
>> S = CStr(C.Value)
>> S = UCase(WorksheetFunction.Clean _
>> (WorksheetFunction.Trim(S)))
>> C = S.Value '*
>> .WrapText = True
>> .Rows.AutoFit
>> End With
>> Next C
>>
>> S is Dimmed as a String.
>> On the marked line (*) I'm getting an Invalid Qualifier error message.
>>
>> Why please?
>>
>> Regards.
>>
>>
>
>

glad to help

--
Don Guillett
SalesAid Software
donaldb@281.com
"Stuart" <sgbooth@totalise.co.uk> wrote in message
news:%23jh4VWeRFHA.1096@tk2msftngp13.phx.gbl...
> That worked, many thanks.
>
> now, if I could just find how to achieve the same,
> but without converting to upper case.
>
> Regards.
>
> "Don Guillett" <donaldb@281.com> wrote in message
> news:%23TlveFeRFHA.4028@tk2msftngp13.phx.gbl...
> > try it with c.value=s
> >
> > --
> > Don Guillett
> > SalesAid Software
> > donaldb@281.com
> > "Stuart" <sgbooth@totalise.co.uk> wrote in message
> > news:uOMAQCeRFHA.3684@TK2MSFTNGP10.phx.gbl...
> >> For Each C In myRng
> >> With C
> >> S = CStr(C.Value)
> >> S = UCase(WorksheetFunction.Clean _
> >> (WorksheetFunction.Trim(S)))
> >> C = S.Value '*
> >> .WrapText = True
> >> .Rows.AutoFit
> >> End With
> >> Next C
> >>
> >> S is Dimmed as a String.
> >> On the marked line (*) I'm getting an Invalid Qualifier error message.
> >>
> >> Why please?
> >>
> >> Regards.
> >>
> >>
> >
> >
>
>

Converting to Uppercase isn't doing anything in the code you show, so remove
the Ucase() from your code if that is what you are wishing for. Certainly
Clean and Trim don't depend on it and as written, they have completed their
work before anything is changed to uppercase.

--
Regards,
Tom Ogilvy

"Stuart" <sgbooth@totalise.co.uk> wrote in message
news:%23jh4VWeRFHA.1096@tk2msftngp13.phx.gbl...
> That worked, many thanks.
>
> now, if I could just find how to achieve the same,
> but without converting to upper case.
>
> Regards.
>
> "Don Guillett" <donaldb@281.com> wrote in message
> news:%23TlveFeRFHA.4028@tk2msftngp13.phx.gbl...
> > try it with c.value=s
> >
> > --
> > Don Guillett
> > SalesAid Software
> > donaldb@281.com
> > "Stuart" <sgbooth@totalise.co.uk> wrote in message
> > news:uOMAQCeRFHA.3684@TK2MSFTNGP10.phx.gbl...
> >> For Each C In myRng
> >> With C
> >> S = CStr(C.Value)
> >> S = UCase(WorksheetFunction.Clean _
> >> (WorksheetFunction.Trim(S)))
> >> C = S.Value '*
> >> .WrapText = True
> >> .Rows.AutoFit
> >> End With
> >> Next C
> >>
> >> S is Dimmed as a String.
> >> On the marked line (*) I'm getting an Invalid Qualifier error message.
> >>
> >> Why please?
> >>
> >> Regards.
> >>
> >>
> >
> >
>
>