Finding peculiar text

Try this one.

Sub tst()
    sn = Cells(1).CurrentRegion.Value
    For i = 1 To UBound(sn)
        currwidth = Len(sn(i, 1))
        If currwidth > newwidth Then
            newwidth = currwidth: rnum = i
        End If
    Next
    MsgBox "The data you're looking for is on row " & rnum
End Sub

Sub tst()
    sn = Cells(1).CurrentRegion.Value
    For i = 1 To UBound(sn)
        currwidth = Len(sn(i, 1))
        If currwidth > newwidth Then
            newwidth = currwidth: rnum = i
        End If
    Next
    Application.Goto Cells(rnum, 1), True
End Sub

You're welcome and thanks for rep+.