View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
[email protected] smduello@gmail.com is offline
external usenet poster
 
Posts: 11
Default Can't get ActiveSheet to work...

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