Delete only the fourth character
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
|