Hi,

I would like to have a macro that would delete only the fourth character
into the selected cells

Thanks
Catherine

You could just use existing excel formulas and then paste special as values?

put this in cell B2, and it takes the fourth character out of A1

=LEFT(A1,3)&RIGHT(A1,LEN(A1)-4)

Sam

"Catherine" wrote:

> Hi,
>
> I would like to have a macro that would delete only the fourth character
> into the selected cells
>
> Thanks
> Catherine

Thanks Sam,

But I don't want to insert a new column into my workook



"Sam Wilson" wrote:

> You could just use existing excel formulas and then paste special as values?
>
> put this in cell B2, and it takes the fourth character out of A1
>
> =LEFT(A1,3)&RIGHT(A1,LEN(A1)-4)
>
> Sam
>
> "Catherine" wrote:
>
> > Hi,
> >
> > I would like to have a macro that would delete only the fourth character
> > into the selected cells
> >
> > Thanks
> > Catherine

This macro will do what you want...

Sub DeleteFourthCharacter()
Dim Cel As Range
For Each Cel In Selection
Cel.Value = Left(Cel.Value, 3) & Mid(Cel.Value, 5)
Next
End Sub

Rick


"Catherine" <(E-Mail Removed)> wrote in message
news:726BA168-BFDF-4395-8C06-(E-Mail Removed)...
> Thanks Sam,
>
> But I don't want to insert a new column into my workook
>
>
>
> "Sam Wilson" wrote:
>
>> You could just use existing excel formulas and then paste special as
>> values?
>>
>> put this in cell B2, and it takes the fourth character out of A1
>>
>> =LEFT(A1,3)&RIGHT(A1,LEN(A1)-4)
>>
>> Sam
>>
>> "Catherine" wrote:
>>
>> > Hi,
>> >
>> > I would like to have a macro that would delete only the fourth
>> > character
>> > into the selected cells
>> >
>> > Thanks
>> > Catherine

It would be temporary - you could then paste the values of the new column
over the old column before deleting it.

Sam

"Catherine" wrote:

> Thanks Sam,
>
> But I don't want to insert a new column into my workook
>
>
>
> "Sam Wilson" wrote:
>
> > You could just use existing excel formulas and then paste special as values?
> >
> > put this in cell B2, and it takes the fourth character out of A1
> >
> > =LEFT(A1,3)&RIGHT(A1,LEN(A1)-4)
> >
> > Sam
> >
> > "Catherine" wrote:
> >
> > > Hi,
> > >
> > > I would like to have a macro that would delete only the fourth character
> > > into the selected cells
> > >
> > > Thanks
> > > Catherine

On Thu, 29 May 2008 08:35:02 -0700, Catherine
<(E-Mail Removed)> wrote:

>Hi,
>
>I would like to have a macro that would delete only the fourth character
>into the selected cells
>
>Thanks
>Catherine


======================
Option Explicit
Sub Del4th()
Dim c As Range
For Each c In Selection
c.Value = Application.WorksheetFunction.Replace(c.Value, 4, 1, "")
Next c
End Sub
=========================
--ron

Thanks to everybody for your macro, it's working

Catherine

"Ron Rosenfeld" wrote:

> On Thu, 29 May 2008 08:35:02 -0700, Catherine
> <(E-Mail Removed)> wrote:
>
> >Hi,
> >
> >I would like to have a macro that would delete only the fourth character
> >into the selected cells
> >
> >Thanks
> >Catherine
>
>
> ======================
> Option Explicit
> Sub Del4th()
> Dim c As Range
> For Each c In Selection
> c.Value = Application.WorksheetFunction.Replace(c.Value, 4, 1, "")
> Next c
> End Sub
> =========================
> --ron
>