Topic: | Re:Re:Re:Re:Excel - removing words at start of cell - replace can't do it | |
Posted by: | Matteo Castagna | |
Date/Time: | 18/03/15 16:22:00 |
Maybe easier. Place your cursor on the top cell of the relevant column and run this: Public Sub RemoveText() For Each Cell In ActiveSheet.Range(Selection, Selection.End(xlDown)).Cells ActiveCell.Value = Replace(ActiveCell.Value, "Peanuts ", "") ActiveCell.Value = Replace(ActiveCell.Value, "Butternut ", "") ActiveCell.Offset(1).Select Next Cell End Sub |