How do I remove leading apostrophes in Excel?
Sub DoAllWorksheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
' delete apostrophes in ws using previous methods
Next
End Sub
Simon G wrote:
This works well, but is it possible to delete the apostrophes from all sheets
in a workbook?
"David" wrote:
?B?ZmhhYmVybGFuZA==?= wrote
I had the same problem. They way I solve it was a bit different, but
quick.
Norman Jones offered this earlier this year:
Sub DeleteApostrophes()
Dim rCell As Range
For Each rCell In ActiveSheet.UsedRange
If rCell.PrefixCharacter = "'" Then
rCell.Value = rCell.Value
End If
Next rCell
End Sub
Also very quick
--
David
|