Can't get ActiveSheet to work...

  • Thread starter Thread starter smduello
  • Start date Start date
S

smduello

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
 
See response to your earlier post.

Have a little patience please.

Gord Dibben MS Excel MVP



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....
Click to expand...
Here's the code:
Click to expand...
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 -
Click to expand...

- Show quoted text -
Click to expand...

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.
 
Back
Top