Hello,
I've used a variation of the following code to clear zeros from a data
range. Some data that I've imported contains a combination of dates, numbers
and text but mysteriously some cells appear blank but on inspection of the
formula bar they contain a solitary apostrophe. I would have thought that the
following code should clear the apostrophes but it doesn't. Could anybody
help please

Sub CleanApostrophe()
Dim rng As Range, cell
Set rng = Range("Datarange2")
For Each cell In rng
If cell.Value = " ' " Then
cell.ClearContents
End If
Next cell
End Sub