Excel VBA - Check/Format String

[magix]

Hi,

I would like to check and format string from a cell if a condition is met,
via using macro button.
Condition: if there is apostrophe in that string, the following letter
after apostrophe must be lowercase. if the following letter is a space, then
nothing happen.

Of course, if I select multiple cells, it will check each of them.

Thanks in advance.

Regards,
Magix

[Bob Phillips]

Dim cell As Range
Dim iPos As Long

For Each cell In Selection
iPos = InStr(cell.Value, ",")
If iPos > 0 Then
cell.Value = Left(cell.Value, iPos) & _
UCase(Mid(cell.Value, iPos + 1, 1)) & _
Right(cell.Value, Len(cell.Value) - iPos -
1)
End If
Next cell


--

HTH

RP
(remove nothere from the email address if mailing direct)


"magix" <[email protected]> wrote in message
news:[email protected]...
> Hi,
>
> I would like to check and format string from a cell if a condition is met,
> via using macro button.
> Condition: if there is apostrophe in that string, the following letter
> after apostrophe must be lowercase. if the following letter is a space,
then
> nothing happen.
>
> Of course, if I select multiple cells, it will check each of them.
>
> Thanks in advance.
>
> Regards,
> Magix
>
>