Compile Error
Hi,
Maybe this
Set MyRange = Selection
For Each cell In MyRange
If Left(cell.Value, 5) = "GL Op" Then
cell.Value = Left(cell.Value, 5)
End If
If Left(cell.Value, 5) = "Au Op" Then
cell.Value = Left(cell.Value, 5)
End If
If Left(cell.Value, 5) = "WC Op" Then
cell.Value = Left(cell.Value, 5)
End If
If Left(cell.Value, 5) = "CA Op" Then
cell.Value = Left(cell.Value, 5)
End If
Next
Mike
"mypetduke" wrote:
I have the following code and keep getting a Compile error: For without Next.
Can anyone help.
Set myrange = ActiveSheet.Range(Selection, Selection.End(xlUp))
For Each cell In myrange
If Left(cell.Value, 5) = "GL Op" Then
cell.Cut
cell.Paste ("GL Op")
End If
If Left(cell.Value, 5) = "Au Op" Then
cell.Cut
cell.Paste ("Au Op")
End If
If Left(cell.Value, 5) = "WC Op" Then
cell.Cut
cell.Paste ("WC Op")
End If
If Left(cell.Value, 5) = "CA Op" Then
cell.Cut
cell.Paste ("Au Op")
End If
End Sub
|