Hi Richard,

Try something like:

'=============
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet

Set WB = Workbooks("MyBook.xls") '<<==== CHANGE
For Each SH In WB.Worksheets
SH.Columns("A").Replace _
What:=Chr(10), _
Replacement:=vbNullString, _
SearchOrder:=xlByRows, _
Lookat:=xlPart
Next SH
End Sub
'<<=============

---
Regards,
Norman
Microsoft Excel MVP



"Syscon" wrote in message
...
The CellView add in has identified ( info - works in excell 2007 )
decimal
010 at the end of the text.
Is there anyway to strip this from all cells in Col. A to enable my search
to run?. I have a lot of individual Excel sheets to run my macro on!

Richard

"Norman Jones" wrote:

Hi Richard,

Additionally, if you wish to identify individual characters, you may wish
to
consider Chip Pearson's Cell View add-in:

http://www.cpearson.com/Excel/CellView.htm



---
Regards,
Norman