Deleting first character issue

[saman110 via OfficeKB.com]

This macro deletes first character of each cell in a range. But if there is
black cell in the begining or in between cells it does not work.
Is there any way to overcome this issue.

thx.

Sub RemoveQuote()
On Error GoTo e
Dim rng As Range, cell As Object
Set rng = Selection
For Each cell In rng
cell = Right(cell, Len(cell) - 1)

Next cell
e:
End Sub

 

[Jim Cone]

Sub RemoveQuote_R1()
On Error GoTo e
Dim rng As Range, cell As Range
Set rng = Selection
For Each cell In rng.Cells
If cell.HasFormula = False Then
If Len(cell.PrefixCharacter) > 0 Then
cell.Value = cell.Value
ElseIf Len(cell.Value) > 0 Then
cell.Value = Right(cell.Value, Len(cell.Value) - 1)
End If
End If
Next 'cell
e:
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"saman110 via OfficeKB.com"
wrote in message
This macro deletes first character of each cell in a range. But if there is
black cell in the begining or in between cells it does not work.
Is there any way to overcome this issue.
thx.

Sub RemoveQuote()
On Error GoTo e
Dim rng As Range, cell As Object
Set rng = Selection
For Each cell In rng
cell = Right(cell, Len(cell) - 1)
Next cell
e:
End Sub