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