Clear “Empty” Cells in Excel with VBA

I found myself having an issue with a file that was exported from Access, where blank fields in the database appeared empty in the export, but in reality, the fields did have a value – even though they appeared to be blank.  This VBA clears all fields that appear to be empty, but are not.


Sub ClearCells()
With ActiveSheet
   .UsedRange.Value = Evaluate("IF(ROW(" & .UsedRange.Address & "),CLEAN(" & .UsedRange.Address & "))")
End With
End Sub