VBA to find value of a particular string from a column

[irfanparbatani]

Hi Friends

I have a scenario, where I need to find Roll Numbers from a comment column. where roll nos:----------.

I have tried this but its not configuring correctly

Sub ifforall()
Dim a As Integer

Range("I2").Select
Do Until IsEmpty(ActiveCell.Value)
'a=
ActiveCell.Offset(0, 1).FormulaR1C1 = "=IF(ISERROR(SEARCH(""Roll Numbers:"",RC[-1])),""--------"", ""Roll Numbers"")"
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(0, 1).Value
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Please help.

Thanks in advance.