as long as it's a single underline, this may work for you

Sub test()
Dim ws As Worksheet
Dim lastrow As Long
Dim i As Long
Set ws = Worksheets("Sheet1")
lastrow = ws.Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To lastrow
With ws.Range("A" & i)
If .Font.Underline = 2 Then
.Offset(, 1).Value = "X"
End If
End With
Next
End Sub


--


Gary Keramidas
Excel 2003


"Bill" wrote in message
...
With Excel 2007

I have data (both text and numbers) in column A. Some of the "text" is
underlined. I would like to place an €œx€� in column B next to the data in
column A that is underlined. See below. I would like to place the €œx€� in
column B in the easiest manner possible, automatically without placing the
"x" manually for each item since I have a few thousand rows. Also, I would
like to do this without using a macro.

Since I am unable to underline in this post, the following data in column
A
is underlined. Also, you can see an "x" in column B corresponding to this
data:

Fruits
Meat
Milk
Fish
Lamb


Any suggestions.

Thank you,

Bill



Column A Column B

Fruits x
Vegetables
5
Meat x
6
Milk x
Bread
Beverage
Fish x
9
Lamb x
Soup