![Quote](https://www.excelforum.com/images/misc/quote_icon.png)
Originally Posted by
Marwah
Thank you, could you please give me the full code and tell me how to apply it to my data
Press Ctrl+F11
In the Microsoft Visual Basic window, click on Insert->Module
Paste the following code inside the module
From the excel file, press Ctrl+F8 and run the code CheckEveryWordStartingWithRS
You would get the solution from row # 25 onwards.
Sub CheckEveryWordStartingWithRS()
Dim read As String
Dim i As Integer
Dim j As Integer
Dim p As Integer
Dim lastrow As Integer
Dim changeofword As Variant
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For p = 1 To lastrow
read = Range("A" & p).Value
changeofword = Split(read, " ")
j = 1
For i = 0 To UBound(changeofword)
Cells(p + 24, j).Value = changeofword(i)
j = j + 1
Next
Next p
Application.ScreenUpdating = True
End Sub
Bookmarks