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" wrote in message
...
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
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
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