CLEAN on whole Worksheet
Public Sub Test()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If Not cell.HasFormula Then
cell.Value = Application.Clean(cell.Value)
End If
Next cell
End Sub
--
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
"Gareth - Network analyst."
wrote in message ...
Hi guys/Girls
Is there a way to apply the CLEAN function to an entire worksheet?
|