<div>
Hi, 
 
pls try 

<pre><code class="code-1 nolinks" id="code-20-41458130-1">Sub macro()
For Each c In Range(Range(&quot;A1&quot;), Range(&quot;A&quot; &amp; Cells.Rows.Count).End(xlUp))
 Pos = InStr(1, c, &quot;&lt;--&quot;)
 If Pos &gt; 0 Then
 c.Offset(0, 1) = Trim(Mid(c, Pos))
 c.Value = Trim(WorksheetFunction.Clean(Left(c, Pos - 1)))
 End If
Next
End Sub
</code></pre>
Regards
</div>

<div>
Thanks for the quick response! &nbsp;This worked perfectly!
</div>

<div>
try this macro 
 

<pre><code class="code-10 nolinks" id="code-20-41458146-1">Sub Test()
'

 Columns(&quot;A:A&quot;).Select
 Selection.TextToColumns Destination:=Range(&quot;A1&quot;), DataType:=xlFixedWidth, _
 FieldInfo:=Array(Array(0, 1), Array(22, 1), Array(50, 1)), TrailingMinusNumbers _
 :=True
 Columns(&quot;A:B&quot;).Select
 Dim cell As Range
Dim rng As Range


 If Selection.Cells.Count = 1 Then
 Set rng = Selection
 Else
 Set rng = Selection.SpecialCells(xlCellTypeConstants)
 End If


 For Each cell In rng.Cells
 cell.Value = Application.WorksheetFunction.Clean(Trim(cell.Value))
 Next cell
End Sub
</code></pre>
</div>

<div>
<div class="content wysiwyg-content">
I have a spreadsheet with this value in A1. &nbsp;This is the actual text in A1: &nbsp; 
 
&nbsp; &nbsp; &nbsp;Active/Inactive &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&lt;-- Active/Inactive 
 
What I need to do is move the &quot;&lt;-- Active/Inactive&quot; to column B1 and leave &quot;Active/Inactive&quot; in column A1. 
 
I have a list of 50 values and all of the values that need to move to column B are prefaced with this string: &quot;&lt;-- &quot;
</div>
</div>

I have a spreadsheet with this value in A1. This is the actual text in A1: 

 Active/Inactive <-- Active/Inactive

What I need to do is move the "<-- Active/Inactive" to column B1 and leave "Active/Inactive" in column A1.

I have a list of 50 values and all of the values that need to move to column B are prefaced with this string: "<-- "

Need to move part of a text string to another column in Excel

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

A spreadsheet is an interactive computer application program for organization, analysis and storage of data in tabular form. Spreadsheets developed as computerized simulations of paper accounting worksheets. The program operates on data represented as cells of an array, organized in rows and columns. Each cell of the array may contain either numeric or text data, or the results of formulas that automatically calculate and display a value based on the contents of other cells.