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
[email protected]
"Stuart" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
news:%[email protected]...
> try it with c.value=s
>
> --
> Don Guillett
> SalesAid Software
> [email protected]
> "Stuart" <[email protected]> wrote in message
> news:[email protected]...
>> 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
[email protected]
"Stuart" <[email protected]> wrote in message
news:%[email protected]...
> That worked, many thanks.
>
> now, if I could just find how to achieve the same,
> but without converting to upper case.
>
> Regards.
>
> "Don Guillett" <[email protected]> wrote in message
> news:%[email protected]...
> > try it with c.value=s
> >
> > --
> > Don Guillett
> > SalesAid Software
> > [email protected]
> > "Stuart" <[email protected]> wrote in message
> > news:[email protected]...
> >> 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" <[email protected]> wrote in message
news:%[email protected]...
> That worked, many thanks.
>
> now, if I could just find how to achieve the same,
> but without converting to upper case.
>
> Regards.
>
> "Don Guillett" <[email protected]> wrote in message
> news:%[email protected]...
> > try it with c.value=s
> >
> > --
> > Don Guillett
> > SalesAid Software
> > [email protected]
> > "Stuart" <[email protected]> wrote in message
> > news:[email protected]...
> >> 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.
> >>
> >>
> >
> >
>
>