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

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...l-new/200802/1