Cleaning up those non-printing ASCII characters after a text import.
Sub Cleaning() Dim RowCount As Long, CountCol As Long, Sheet as Object Set Sheet = Application.ActiveSheet For CountRow = 1 To 20 For CountCol = 1 To 20 Sheet.Cells(CountRow, CountCol).Value = Application.WorksheetFunction.Clean(Sheet.Cells(CountRow, CountCol).Value) Next CountCol Next CountRow End Sub |
Thanks & a tip o' the hat to Andy!
02/09/2001 16:05:38