I have tried to add ActiveSheet to the following code (which ya'll
helped with yesterday), but can't get it to work actually run on all
the sheets....

Here's the code:

Sub RemoveCR()
Dim R As Range
For Each R In Range("C1:C20000")
If R.Value Like "*[Cc][Rr]" Then
R.Value = -Left(R.Value, Len(R.Value) - 2)
End If
Next
End Sub

See response to your earlier post.

Have a little patience please.


Gord Dibben MS Excel MVP

On Thu, 16 Aug 2007 15:58:31 -0000, wrote:

I have tried to add ActiveSheet to the following code (which ya'll
helped with yesterday), but can't get it to work actually run on all
the sheets....

Here's the code:

Sub RemoveCR()
Dim R As Range
For Each R In Range("C1:C20000")
If R.Value Like "*[Cc][Rr]" Then
R.Value = -Left(R.Value, Len(R.Value) - 2)
End If
Next
End Sub

On Aug 16, 11:33 am, Gord Dibben <gorddibbATshawDOTca wrote:
See response to your earlier post.

Have a little patience please.

Gord Dibben MS Excel MVP



On Thu, 16 Aug 2007 15:58:31 -0000, wrote:
I have tried to add ActiveSheet to the following code (which ya'll
helped with yesterday), but can't get it to work actually run on all
the sheets....

Here's the code:

Sub RemoveCR()
Dim R As Range
For Each R In Range("C1:C20000")
If R.Value Like "*[Cc][Rr]" Then
R.Value = -Left(R.Value, Len(R.Value) - 2)
End If
Next
End Sub- Hide quoted text -

- Show quoted text -

Thanks -

Sorry for the dup post. I didn't see it come up on my older post, so
I decided to make it a new post. My mistake.