On Feb 14, 4:20 am, "Bob Phillips" wrote:
Sub DeleteCharacters()
'
Dim strS
Set Rng = Range("E7:E65000")
For Each Cell In Rng
strS = "CO"
If Left(Cell, 2) = strS Then
strC.Cut .Cell.Offset(0, 1)
ElseIf Cell.Value = "" Then
Exit Sub
End If
Next
End Sub

--
HTH

Bob Phillips

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"jfcby" wrote in message

oups.com...



Hello,

Beginning with row4 in ColumnE my data has CO125. I want to cut the CO
and paste it in ColumnF.

This is the macro I've got so far:

Sub DeleteCharacters()
'
Dim strS, strC
Set Rng = Range("B7:D65000")
For Each cell In Rng
strS = "CO"
strC = Left(cell, 2)
If strC = strS Then
strC.Select
Selection.Cut
ElseIf cell.Value = "" Then
Exit Sub
End If
Next
End Sub

Thank you for your help,
jfcby- Hide quoted text -

- Show quoted text -

Hello Bob,

When I tried your code it give me this error message:

Compile error: syntax error

Then it highlights this line of code:
strC.Cut.cell.Offset(0, 1)

I changed it to this and it gave me the same error:
Left(cell, 2).Cut.cell.Offset(0, 1)

Thank you for your help,
jfcby