I downloaded from the web at the following site

http://www.xl.barasch.com/ACl12117.htm

code (except for a change I made in the dim statement becasue Mr.
Barasch made an honest mistake by confusing RowCount and CountRow and
some comments I added) by Alan Barash for cleaning up data in Excel
that was imported from a text file. The code is below. I cannot get
it to work. I suspect that something comes after

Sheet.Cells(CountRow, CountCol).Value =

but I do not know what to enter.

Any help would be appreciated. Thank you.

Steve G



Option Explicit

'Cleaning up those non-printing ASCII characters after a text import
'web page for code is: www.xl.barasch.com/ACl12117.htm Alan Barasch
Sub CleaningImportedText()
Dim CountRow As Long, CountCol As Long, Sheet As Object
Set Sheet = Application.ActiveSheet
Application.ScreenUpdating = False
For CountRow = 1 To 500
For CountCol = 1 To 50
Sheet.Cells(CountRow, CountCol).Value =
Application.WorksheetFunction.Clean (Sheet.Cells(CountRow,
CountCol).Value)
Next CountCol
Next CountRow
Application.ScreenUpdating = True
End Sub

[stevebriz]

Just hit delete at the en dof the line to so the next line continues after the = sign
(the line was split for ease of reading)

Sheet.Cells(CountRow, CountCol).Value =
Application.WorksheetFunction.Clean (Sheet.Cells(CountRow,
CountCol).Value)

should all be on one line.
--
p45cal


"Steve G" wrote:

> I downloaded from the web at the following site
>
> http://www.xl.barasch.com/ACl12117.htm
>
> code (except for a change I made in the dim statement becasue Mr.
> Barasch made an honest mistake by confusing RowCount and CountRow and
> some comments I added) by Alan Barash for cleaning up data in Excel
> that was imported from a text file. The code is below. I cannot get
> it to work. I suspect that something comes after
>
> Sheet.Cells(CountRow, CountCol).Value =
>
> but I do not know what to enter.
>
> Any help would be appreciated. Thank you.
>
> Steve G
>
>
>
> Option Explicit
>
> 'Cleaning up those non-printing ASCII characters after a text import
> 'web page for code is: www.xl.barasch.com/ACl12117.htm Alan Barasch
> Sub CleaningImportedText()
> Dim CountRow As Long, CountCol As Long, Sheet As Object
> Set Sheet = Application.ActiveSheet
> Application.ScreenUpdating = False
> For CountRow = 1 To 500
> For CountCol = 1 To 50
> Sheet.Cells(CountRow, CountCol).Value =
> Application.WorksheetFunction.Clean (Sheet.Cells(CountRow,
> CountCol).Value)
> Next CountCol
> Next CountRow
> Application.ScreenUpdating = True
> End Sub
>
>

On Aug 30, 5:48 pm, p45cal <p45...@discussions.microsoft.com> wrote:
> Sheet.Cells(CountRow, CountCol).Value =
> Application.WorksheetFunction.Clean (Sheet.Cells(CountRow,
> CountCol).Value)
>
> should all be on one line.
> --
> p45cal
>
>
>
> "Steve G" wrote:
> > I downloaded from the web at the following site
>
> >http://www.xl.barasch.com/ACl12117.htm
>
> > code (except for a change I made in the dim statement becasue Mr.
> > Barasch made an honest mistake by confusing RowCount and CountRow and
> > some comments I added) by Alan Barash for cleaning up data in Excel
> > that was imported from a text file. The code is below. I cannot get
> > it to work. I suspect that something comes after
>
> > Sheet.Cells(CountRow, CountCol).Value =
>
> > but I do not know what to enter.
>
> > Any help would be appreciated. Thank you.
>
> > Steve G
>
> > Option Explicit
>
> > 'Cleaning up those non-printing ASCII characters after a text import
> > 'web page for code is: www.xl.barasch.com/ACl12117.htm Alan Barasch
> > Sub CleaningImportedText()
> > Dim CountRow As Long, CountCol As Long, Sheet As Object
> > Set Sheet = Application.ActiveSheet
> > Application.ScreenUpdating = False
> > For CountRow = 1 To 500
> > For CountCol = 1 To 50
> > Sheet.Cells(CountRow, CountCol).Value =
> > Application.WorksheetFunction.Clean (Sheet.Cells(CountRow,
> > CountCol).Value)
> > Next CountCol
> > Next CountRow
> > Application.ScreenUpdating = True
> > End Sub- Hide quoted text -
>
> - Show quoted text -

To p45cal--Thank you. Steve G