Find specific character at the beginning of sentence and remove

[NVRensburg]

Please could someone help :D

I have a table with sentences in each row (see attached image). I'm importing this data into InDesign for data merge and each > stands for a return once I've imported the data, however I need to remove the > at the beginning of each sentence as I don't need a blank return at the beginning. Is there a vba that can find the > at the beginning of each sentence and remove it please?

 

[AC PORTA VIA]

will this work

Sub RemoveFirstCharacterInEachCell()
For Each cell In Range("A1", Range("A65536").End(xlUp))
If Not IsEmpty(cell) Then
cell.value = Right(cell, Len(cell) - 1)
End If
Next cell
End Sub

 

[NVRensburg]

will this work

Sub RemoveFirstCharacterInEachCell()
For Each cell In Range("A1", Range("A65536").End(xlUp))
If Not IsEmpty(cell) Then
cell.value = Right(cell, Len(cell) - 1)
End If
Next cell
End Sub

Yes thank you!

 

[AC PORTA VIA]

Yes thank you!

You are welcome

 

[Peter_SSs]

Yes thank you!

If that code works for you then rather than processing the data one line at a time, you could do the lot at once with this one-liner.
I have assumed a heading with data starting at row 2 but if that is not the case just edit that A2 in the code.

Sub RemoveFirst()
  Range("A2", Range("A" & Rows.Count).End(xlUp)).TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 9), Array(1, 1))
End Sub

@AC PORTA VIA
A couple of code comments

• For many years now worksheets have had more than the old 65,536 rows so using that number as you have could miss data in some worksheets. I suggest changing to use the generic Rows.Count as I have done above and that will work in both new and old worksheet sizes.
  
  
• In vba the Mid function's 3rd argument is optional and omitting it gives a good way to return a string starting at any position. So instead of using Right and Len as you have done, the code below would do the same job.
  An added advantage of using this Mid structure is that it does not matter if the cell is empty so there would be no need for the Not IsEmpty() check

cell.Value = Right(cell, Len(cell) - 1)
cell.Value = Mid(cell, 2)